1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Postdelay/TimeSpec/Utils.hs b/lib/Postdelay/TimeSpec/Utils.hs
index fd9c1be..628a1d9 100644
--- a/lib/Postdelay/TimeSpec/Utils.hs
+++ b/lib/Postdelay/TimeSpec/Utils.hs
@@ -92,7 +92,7 @@ boundedRational :: forall s m n. (Show n, RealFrac n, StringParser s m)
                => Bool -- ^ Require number to be padded with zeroes
                -> Interval n -> m n
 boundedRational padded (I.intersection (0 <=..< PosInf) -> bounds)
-  = (+) <$> boundedNatural padded wholeBounds <*> fractional <?> "Nonnegative real contained in: " ++ show bounds
+  = (+) <$> boundedNatural padded wholeBounds <*> fractional <?> "Nonnegative rational contained in: " ++ show bounds
  where
    fractional :: m n
    fractional = reqFractional $ char '.' $> (/ 10) . foldr' (\h t -> h + t / 10) 0 <*> some (fromDigit <$> digitChar)

diff --git a/lib/Postdelay/TimeSpec/Utils.hs b/lib/Postdelay/TimeSpec/Utils.hs index fd9c1be..628a1d9 100644 --- a/lib/Postdelay/TimeSpec/Utils.hs +++ b/lib/Postdelay/TimeSpec/Utils.hs
@@ -92,7 +92,7 @@ boundedRational :: forall s m n. (Show n, RealFrac n, StringParser s m)
92	=> Bool -- ^ Require number to be padded with zeroes	92	=> Bool -- ^ Require number to be padded with zeroes
93	-> Interval n -> m n	93	-> Interval n -> m n
94	boundedRational padded (I.intersection (0 <=..< PosInf) -> bounds)	94	boundedRational padded (I.intersection (0 <=..< PosInf) -> bounds)
95	= (+) <$> boundedNatural padded wholeBounds <*> fractional <?> "Nonnegative real contained in: " ++ show bounds	95	= (+) <$> boundedNatural padded wholeBounds <*> fractional <?> "Nonnegative rational contained in: " ++ show bounds
96	where	96	where
97	fractional :: m n	97	fractional :: m n
98	fractional = reqFractional $ char '.' $> (/ 10) . foldr' (\h t -> h + t / 10) 0 <*> some (fromDigit <$> digitChar)	98	fractional = reqFractional $ char '.' $> (/ 10) . foldr' (\h t -> h + t / 10) 0 <*> some (fromDigit <$> digitChar)