summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-09-02 11:44:01 -0700
committerJoey Hess2015-09-02 11:44:01 -0700
commit5dce06cbb83d69f7c1c85f1cbc6ccf1382c774d4 (patch)
treec3c2e1c9078d2fcb1bc16952573e45702d03cf8e
parenta84bfd0132746e09677c30f7c28c403984775b32 (diff)
propellor spin
-rw-r--r--src/Propellor/Property/DiskImage.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index 82b243fd..99c9b14b 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -80,7 +80,7 @@ built' rebuild img mkchroot mkparttable final =
szm <- liftIO $ M.map toPartSize <$> dirSizes chrootdir
-- tie the knot!
let (mnts, t) = mkparttable (map (getMountSz szm) mnts)
- liftIO $ print (mnts, t, map (getMountSz szm) mnts)
+ liftIO $ print (mnts, t, map (getMountSz szm) mnts, szm)
ensureProperty $
exists img (partTableSize t)
`before`