mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-11-27 15:32:14 +03:00
Code Issues Projects Releases Wiki Activity

improve efficiency of applicative interface

Browse Source
This commit is contained in:
mrkkrp 2015-07-31 01:43:25 +06:00
parent 0123e43eb5
commit b19dae4315
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Text/MegaParsec/Prim.hs
View File

@ -172,8 +172,10 @@ parsecMap f p = ParsecT $ \s cok cerr eok eerr ->
unParser p s (cok . f) cerr (eok . f) eerr
instance A.Applicative (ParsecT s u m) where
pure = return
(<*>) = ap -- TODO: Can this be optimized?
pure = return
(<*>) = ap -- TODO: Can this be optimized?
(*>) = (>>)
p1 <* p2 = do { x1 <- p1 ; void p2 ; return x1 }
instance A.Alternative (ParsecT s u m) where
empty = mzero