diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-09-02 12:17:44 -0700 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-02 12:17:44 -0700 |
| commit | b01d6fab5e8aa2120485884062ff3e03709ef626 (patch) | |
| tree | 45ad469ce3e727c8a6f21c0388791bfbb3523f05 /src | |
| parent | b08e5f6ebed4f8ae429876c4f01f31000562ab66 (diff) | |
todos
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` |