diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-07-25 17:51:36 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-07-25 17:51:36 -0400 |
| commit | e1984420b3f1fbca1c3413c4d09ac958c0c13a1c (patch) | |
| tree | 5926cf8ca77f4bf83fea0a22e3c3af3f7d2dde91 /src | |
| parent | 25ce9906a682d6f4c560aef5b6a331ecb6c79d48 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/DiskImage.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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" |