Prioritised endomorphisms

1 files changed, 3 insertions, 0 deletions

diff --git a/lib/Postdelay/TimeSpec/Utils.hs b/lib/Postdelay/TimeSpec/Utils.hs
index 628a1d9..0bce51a 100644
--- a/lib/Postdelay/TimeSpec/Utils.hs
+++ b/lib/Postdelay/TimeSpec/Utils.hs
@@ -35,6 +35,8 @@ import Text.Megaparsec
 import Text.Megaparsec.Prim (MonadParsec)
 import qualified Text.Megaparsec.Lexer as L
 
+import Debug.Trace
+
 
 type StringParser s m = (MonadParsec Dec s m, Token s ~ Char)
 
@@ -86,6 +88,7 @@ boundedNatural padded (I.intersection (0 <=..< PosInf) -> bounds) = do
           | otherwise = int
 
     digits :: n -> Int
+    digits 0 = 1
     digits n = succ . fromJust $ findIndex (\(min, max) -> min <= n && n < max) [ (10^i, 10^(succ i)) | i <- ([0..] :: [Int]) ]
 
 boundedRational :: forall s m n. (Show n, RealFrac n, StringParser s m)