From 028b775885812ffdbaa7c9150a0cccc1fdc97bdb Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Sat, 2 Jan 2016 20:18:55 +0600 Subject: [PATCH] =?UTF-8?q?Use=20=E2=80=98const=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Text/Megaparsec/Prim.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Text/Megaparsec/Prim.hs b/Text/Megaparsec/Prim.hs index dc1c9d2..7c8968a 100644 --- a/Text/Megaparsec/Prim.hs +++ b/Text/Megaparsec/Prim.hs @@ -265,7 +265,7 @@ pMap f p = ParsecT $ \s cok cerr eok eerr -> instance A.Applicative (ParsecT s m) where pure = pPure (<*>) = ap - p1 *> p2 = p1 `pBind` \_ -> p2 + p1 *> p2 = p1 `pBind` const p2 p1 <* p2 = do { x1 <- p1 ; void p2 ; return x1 } instance A.Alternative (ParsecT s m) where