mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-12-18 05:41:39 +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

2
Text/MegaParsec/Prim.hs
View File

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