summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-09-02 11:30:46 -0700
committerJoey Hess2015-09-02 11:30:46 -0700
commit7846ad9db602d50adbef4bd62edba3fcb158d0c9 (patch)
treeef82ac72daac03a29bfdbe28da709701b848c6be
parent2210647bdef5703d8255b25422c97f92d9c3d905 (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 bd7178cc..82b243fd 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)
+ liftIO $ print (mnts, t, map (getMountSz szm) mnts)
ensureProperty $
exists img (partTableSize t)
`before`