diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-09-01 11:48:48 -0700 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-01 11:48:48 -0700 |
| commit | cafd349d60b902705ebe12e8f8bc31c285e32ffe (patch) | |
| tree | 17793f11977adc7ca16ab18531de602d632a3175 /src/Propellor/Property/DiskImage.hs | |
| parent | 804622719b8a348bfdd32f427502e0529d50a8ed (diff) | |
cleanup
Diffstat (limited to 'src/Propellor/Property/DiskImage.hs')
| -rw-r--r-- | src/Propellor/Property/DiskImage.hs | 3 |
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 |