diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-02-26 16:36:51 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-02-26 16:36:51 -0400 |
| commit | 663fb4cc4545dc25e062fb0bc4af933402923506 (patch) | |
| tree | 0880a113769416fee77128ffa8c155ff47f303c0 /src/Propellor/Property/Parted.hs | |
| parent | 01b313e06b3010ebe1a9385b7779dc49a7ebf74c (diff) | |
fix minor bug in pval (MegaBytes 0)
Diffstat (limited to 'src/Propellor/Property/Parted.hs')
| -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 |