summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
authorJoey Hess2015-08-26 17:29:01 -0700
committerJoey Hess2015-08-31 13:54:49 -0700
commit94d6f453e7441749a83f0ea69d0e7c12737565a1 (patch)
tree6d13ab00a5594b77a1bfeccb9e87cc78c3b02859 /src/Propellor/Property/DiskImage.hs
parentc95f05ef8874b21c9a4f9756b8af79e178d80232 (diff)
propellor spin
(cherry picked from commit 7087a94b21a086a98784d17b45dd2b7779e320e9)
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