From ddc4f39e228b0b995c3dccb470a116867638e679 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Dec 2017 17:43:45 -0400 Subject: add missing --- src/Propellor/Property/Parted.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Propellor') 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 -- cgit v1.2.3