From 814e68169cca5405854af60270d9650bfde6dda9 Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Sun, 7 Feb 2021 21:52:59 +0100
Subject: [PATCH] added implementation for <$

---
 src/Text/Parsec/Prim.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Text/Parsec/Prim.hs b/src/Text/Parsec/Prim.hs
index 378da8db..48b9b60b 100644
--- a/src/Text/Parsec/Prim.hs
+++ b/src/Text/Parsec/Prim.hs
@@ -253,6 +253,7 @@ instance Functor (Reply s u) where
 
 instance Functor (ParsecT s u m) where
     fmap f p = parsecMap f p
+    x <$ (ParsecT p) = ParsecT (\s cok cerr eok eerr -> p s (const (cok x)) cerr (const (eok x)) eerr)
 
 parsecMap :: (a -> b) -> ParsecT s u m a -> ParsecT s u m b
 parsecMap f p