diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/DiskImage.hs | 4 |
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` |