From d84405d3e923f4677103143f8b7cc22c9adb6443 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 16 Feb 2017 19:43:40 +0100 Subject: Fix label --- lib/Postdelay/TimeSpec/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Postdelay') 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) -- cgit v1.2.3