From 663fb4cc4545dc25e062fb0bc4af933402923506 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 26 Feb 2017 16:36:51 -0400 Subject: fix minor bug in pval (MegaBytes 0) --- src/Propellor/Property/Parted.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property') 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 -- cgit v1.2.3