summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-02 12:17:44 -0700
committerJoey Hess2015-09-02 12:17:44 -0700
commitb01d6fab5e8aa2120485884062ff3e03709ef626 (patch)
tree45ad469ce3e727c8a6f21c0388791bfbb3523f05 /src/Propellor/Property/DiskImage.hs
parentb08e5f6ebed4f8ae429876c4f01f31000562ab66 (diff)
todos
Diffstat (limited to 'src/Propellor/Property/DiskImage.hs')
-rw-r--r--src/Propellor/Property/DiskImage.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index b31aef45..7820c4c3 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -80,8 +80,10 @@ built' rebuild img mkchroot mkparttable final =
szm <- liftIO $ M.mapKeys tosysdir . M.map toPartSize
<$> dirSizes chrootdir
-- tie the knot!
+ -- TODO when /boot is in part table, size of /
+ -- should be reduced by sie of /boot
+ -- TODO if any size is < 1 MB, use 1 MB for sanity
let (mnts, t) = mkparttable (map (getMountSz szm) mnts)
- liftIO $ print (mnts, t, map (getMountSz szm) mnts)
ensureProperty $
exists img (partTableSize t)
`before`