From e1984420b3f1fbca1c3413c4d09ac958c0c13a1c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 25 Jul 2017 17:51:36 -0400 Subject: propellor spin --- src/Propellor/Property/DiskImage.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Propellor') diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs index dd42265d..9289aad3 100644 --- a/src/Propellor/Property/DiskImage.hs +++ b/src/Propellor/Property/DiskImage.hs @@ -13,7 +13,7 @@ module Propellor.Property.DiskImage ( imageRebuilt, imageBuiltFrom, imageExists, - vmdkBuilt, + vmdkBuiltFor, Grub.BIOS(..), ) where @@ -412,8 +412,8 @@ toSysDir chrootdir d = case makeRelative chrootdir d of sysdir -> "/" ++ sysdir -- | Builds a VirtualBox .vmdk file for the specified disk image file. -vmdkBuilt :: FilePath -> RevertableProperty DebianLike UnixLike -vmdkBuilt diskimage = (setup cleanup) +vmdkBuiltFor :: FilePath -> RevertableProperty DebianLike UnixLike +vmdkBuiltFor diskimage = (setup cleanup) `describe` (vmdkfile ++ " built") where vmdkfile = diskimage ++ ".vmdk" -- cgit v1.2.3