@@ -440,11 +440,9 @@ floaty f = do
440440 let dot = 46
441441 _ <- I.satisfy (==dot)
442442 ds <- I.takeWhile isDigit_w8
443− case (case I.parse decimal ds of
444− I.Partial k -> k B.empty
445− r -> r) of
446− I.Done _ n -> return $ T n (B.length ds)
447− _ -> fail "no digits after decimal"
443+ case I.parseOnly decimal ds of
444+ Right n -> return $ T n (B.length ds)
445+ _ -> fail "no digits after decimal"
448446 T fraction fracDigits <- tryFraction <|> return (T 0 0)
449447 let littleE = 101
450448 bigE = 69