1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Postdelay/TimeSpec/Utils.hs b/lib/Postdelay/TimeSpec/Utils.hs
index c10fc4b..a8c7d4a 100644
--- a/lib/Postdelay/TimeSpec/Utils.hs
+++ b/lib/Postdelay/TimeSpec/Utils.hs
@@ -74,7 +74,7 @@ boundedNatural padded (I.intersection (0 <=..< PosInf) -> bounds) = do
       | otherwise = error "boundedNatural in undefined state"
 
     minDigits, maxDigits :: Extended Int
-    (minDigits, maxDigits) = ( fmap digits . I.lowerBound $ close bounds
+    (minDigits, maxDigits) = ( max 1 . fmap digits . I.lowerBound $ close bounds
                              , fmap digits . I.upperBound $ close bounds
                              )
       where
@@ -84,7 +84,7 @@ boundedNatural padded (I.intersection (0 <=..< PosInf) -> bounds) = do
           | otherwise = int
 
     digits :: n -> Int
-    digits = ceiling . (logBase 10 :: Double -> Double) . realToFrac . abs
+    digits = succ . floor . (logBase 10 :: Double -> Double) . realToFrac . abs
 
 boundedRational :: forall s m n. (Show n, RealFrac n, StringParser s m)
                 => Bool -- ^ Require number to be padded with zeroes