Commits

Bryan O'Sullivan  committed 1894909

We don't need to examine the result of parseOnly

  • Participants
  • Parent commits 7ecced0

Comments (0)

Files changed (1)

File Data/Attoparsec/Char8.hs

         let dot = 46
         _ <- I.satisfy (==dot)
         ds <- I.takeWhile isDigit_w8
-        case (case I.parse decimal ds of
-                I.Partial k -> k B.empty
-                r           -> r) of
-          I.Done _ n -> return $ T n (B.length ds)
-          _          -> fail "no digits after decimal"
+        case I.parseOnly decimal ds of
+                Right n -> return $ T n (B.length ds)
+                _       -> fail "no digits after decimal"
   T fraction fracDigits <- tryFraction <|> return (T 0 0)
   let littleE = 101
       bigE    = 69