From 5dce06cbb83d69f7c1c85f1cbc6ccf1382c774d4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Sep 2015 11:44:01 -0700 Subject: propellor spin --- src/Propellor/Property/DiskImage.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor') 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` -- cgit v1.2.3