summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-02 11:17:53 -0700
committerJoey Hess2015-09-02 11:17:53 -0700
commit9dad69313101a3f45f63ce2e2d2a2c11c27f058d (patch)
tree462eee36bae0641f0b7a5bd51186878d33c0f4d3 /src/Propellor/Property/DiskImage.hs
parentd2393d8141ac302eff5dc29d32d68014b630d166 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Property/DiskImage.hs')
-rw-r--r--src/Propellor/Property/DiskImage.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index 00bb465f..bd7178cc 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -80,6 +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)
ensureProperty $
exists img (partTableSize t)
`before`