summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
authorJoey Hess2015-08-26 17:29:01 -0700
committerJoey Hess2015-08-26 17:29:01 -0700
commit7087a94b21a086a98784d17b45dd2b7779e320e9 (patch)
tree25a8cec82acf5b7e56e57c5ea0c7c20113a3877b /src/Propellor/Property/DiskImage.hs
parent836133fd405212c31ac7e661cd3bbb6ed305cbc4 (diff)
propellor spin
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