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