summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Parted.hs
diff options
context:
space:
mode:
authorJoey Hess2017-12-22 09:23:03 -0400
committerJoey Hess2017-12-22 09:23:03 -0400
commit64fea7ecaf3bc223575f01687423be24403f2cf1 (patch)
tree94a05c5a0e995acc25552820e4b9ee9ce272f31e /src/Propellor/Property/Parted.hs
parent3cfa2b7020af90ab14316dea0b93bf193f9405a5 (diff)
specify type
Diffstat (limited to 'src/Propellor/Property/Parted.hs')
-rw-r--r--src/Propellor/Property/Parted.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Parted.hs b/src/Propellor/Property/Parted.hs
index be12933d..97cf815e 100644
--- a/src/Propellor/Property/Parted.hs
+++ b/src/Propellor/Property/Parted.hs
@@ -111,7 +111,7 @@ calcPartedParamsSize (PartTable tabletype alignment parts) =
-- partition size when something about the partition table
-- does not allow the partition to end exactly at the position.
partposfuzzy n
- | n > 0 = show (fromIntegral n / 1000000) ++ "MB"
+ | n > 0 = show (fromIntegral n / 1000000 :: Double) ++ "MB"
| otherwise = "1MB"
-- Location of the start of the first partition,