diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-12-20 17:43:45 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-12-20 17:43:45 -0400 |
| commit | ddc4f39e228b0b995c3dccb470a116867638e679 (patch) | |
| tree | 5d61cbef01bb6aa68676d29867ef82a794b2c43e | |
| parent | b6f1cbebf84218df39dc99d080513181b169e722 (diff) | |
add missing
| -rw-r--r-- | src/Propellor/Property/Parted.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Propellor/Property/Parted.hs b/src/Propellor/Property/Parted.hs index 8afd62ea..38c55b93 100644 --- a/src/Propellor/Property/Parted.hs +++ b/src/Propellor/Property/Parted.hs @@ -192,6 +192,7 @@ defSz = MegaBytes 128 -- Add an additional 200 mb for temp files, journals, etc. fudgeSz :: PartSize -> PartSize fudgeSz (MegaBytes n) = MegaBytes (n + n `div` 100 * 2 + 3 + 200) +fudgeSz (Bytes n) = fudgeSz (toPartSize n) alignTo :: Alignment -> PartSize -> ByteSize alignTo _ (Bytes n) = n -- no alignment done for Bytes |