mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-12-25 17:22:33 +03:00
Code Issues Projects Releases Wiki Activity

Use ‘const’

Browse Source
This commit is contained in:
mrkkrp 2016-01-02 20:18:55 +06:00
parent c73a2239b9
commit 028b775885
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/Megaparsec/Prim.hs
View File

@ -265,7 +265,7 @@ pMap f p = ParsecT $ \s cok cerr eok eerr ->
instance A.Applicative (ParsecT s m) where instance A.Applicative (ParsecT s m) where
pure = pPure pure = pPure
(<*>) = ap (<*>) = ap
p1 *> p2 = p1 `pBind` \_ -> p2 p1 *> p2 = p1 `pBind` const p2
p1 <* p2 = do { x1 <- p1 ; void p2 ; return x1 } p1 <* p2 = do { x1 <- p1 ; void p2 ; return x1 }
instance A.Alternative (ParsecT s m) where instance A.Alternative (ParsecT s m) where