summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-09-01 11:48:48 -0700
committerJoey Hess2015-09-01 11:48:48 -0700
commitcafd349d60b902705ebe12e8f8bc31c285e32ffe (patch)
tree17793f11977adc7ca16ab18531de602d632a3175
parent804622719b8a348bfdd32f427502e0529d50a8ed (diff)
cleanup
-rw-r--r--src/Propellor/Property/DiskImage.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index 54fa8945..76adac09 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -67,9 +67,8 @@ built' rebuild img mkchroot mkparttable final =
szm <- liftIO $ M.map toPartSize <$> dirSizes chrootdir
-- tie the knot!
let (mnts, t) = mkparttable (map (getMountSz szm) mnts)
- let disksz = partTableSize t
ensureProperty $
- exists img disksz
+ exists img (partTableSize t)
`before`
partitioned YesReallyDeleteDiskContents img t
handlerebuild