diff options
| author | Gregor Kleen <aethoago@141.li> | 2017-02-16 19:43:40 +0100 |
|---|---|---|
| committer | Gregor Kleen <aethoago@141.li> | 2017-02-16 19:43:40 +0100 |
| commit | d84405d3e923f4677103143f8b7cc22c9adb6443 (patch) | |
| tree | 75914b76b00be881e4b86a2ee2886c767e0aaddf | |
| parent | dccf2c949c10892b368484c3e85bb2bb14e613e2 (diff) | |
| download | postdelay-d84405d3e923f4677103143f8b7cc22c9adb6443.tar postdelay-d84405d3e923f4677103143f8b7cc22c9adb6443.tar.gz postdelay-d84405d3e923f4677103143f8b7cc22c9adb6443.tar.bz2 postdelay-d84405d3e923f4677103143f8b7cc22c9adb6443.tar.xz postdelay-d84405d3e923f4677103143f8b7cc22c9adb6443.zip | |
Fix label
| -rw-r--r-- | lib/Postdelay/TimeSpec/Utils.hs | 2 |
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) | |||
| 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) |