summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/DiskImage.hs')
-rw-r--r--src/Propellor/Property/DiskImage.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index a3d4073a..691f79bc 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -57,8 +57,8 @@ type MountPoint = Maybe FilePath
-- exploiting laziness and tying the knot.
--
-- (Partitions that are not mounted (ie, LinuxSwap) will have 128 MegaBytes
--- provides as a default size.)
-type MkPartTable = [MegaBytes] -> ([MountPoint], PartTable)
+-- provided as a default size.)
+type MkPartTable = [PartSize] -> ([MountPoint], PartTable)
-- TODO tie the knot
-- let f = fitChrootSize MSDOS [(Just "/", mkPartition EXT2)]
@@ -69,7 +69,7 @@ type MkPartTable = [MegaBytes] -> ([MountPoint], PartTable)
--
-- Partitions that are not mounted (ie, LinuxSwap) will have their size
-- set to 128 MegaBytes, unless it's overridden.
-fitChrootSize :: TableType -> [(MountPoint, MegaBytes -> Partition)] -> MkPartTable
+fitChrootSize :: TableType -> [(MountPoint, PartSize -> Partition)] -> MkPartTable
fitChrootSize tt l basesizes = (mounts, parttable)
where
(mounts, sizers) = unzip l