summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Parted.hs
diff options
context:
space:
mode:
authorJoey Hess2017-02-26 16:36:51 -0400
committerJoey Hess2017-02-26 16:36:51 -0400
commit663fb4cc4545dc25e062fb0bc4af933402923506 (patch)
tree0880a113769416fee77128ffa8c155ff47f303c0 /src/Propellor/Property/Parted.hs
parent01b313e06b3010ebe1a9385b7779dc49a7ebf74c (diff)
fix minor bug in pval (MegaBytes 0)
Diffstat (limited to 'src/Propellor/Property/Parted.hs')
-rw-r--r--src/Propellor/Property/Parted.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/Parted.hs b/src/Propellor/Property/Parted.hs
index 4d8924a5..f7ac379f 100644
--- a/src/Propellor/Property/Parted.hs
+++ b/src/Propellor/Property/Parted.hs
@@ -95,10 +95,10 @@ newtype PartSize = MegaBytes Integer
instance PartedVal PartSize where
pval (MegaBytes n)
- | n > 0 = show n ++ "MB"
+ | n > 0 = val n ++ "MB"
-- parted can't make partitions smaller than 1MB;
-- avoid failure in edge cases
- | otherwise = show "1MB"
+ | otherwise = "1MB"
-- | Rounds up to the nearest MegaByte.
toPartSize :: ByteSize -> PartSize