From cafd349d60b902705ebe12e8f8bc31c285e32ffe Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Sep 2015 11:48:48 -0700 Subject: cleanup --- src/Propellor/Property/DiskImage.hs | 3 +-- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3