Bryan O'Sullivan avatar Bryan O'Sullivan committed 1894909

We don't need to examine the result of parseOnly

Comments (0)

Files changed (1)

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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.