diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Parted.hs | 4 |
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 |