From 31b3fabd2a2969981bf9c0f7162287d39f2bc4d9 Mon Sep 17 00:00:00 2001
From: mrkkrp <markkarpov92@gmail.com>
Date: Sun, 22 Apr 2018 00:28:20 +0700
Subject: [PATCH] =?UTF-8?q?Drop=20a=20redundant=20superclass=20of=20?=
 =?UTF-8?q?=E2=80=98MonadParsec=E2=80=99?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Text/Megaparsec/Class.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Text/Megaparsec/Class.hs b/Text/Megaparsec/Class.hs
index ae486d1..29bff7a 100644
--- a/Text/Megaparsec/Class.hs
+++ b/Text/Megaparsec/Class.hs
@@ -25,7 +25,6 @@ module Text.Megaparsec.Class
   ( MonadParsec (..) )
 where
 
-import Control.Applicative
 import Control.Monad
 import Control.Monad.Identity
 import Control.Monad.Trans
@@ -52,8 +51,7 @@ import Control.Monad.Trans.Identity
 -- taken advantage of as much as possible if your aim is a fast parser:
 -- 'tokens', 'takeWhileP', 'takeWhile1P', and 'takeP'.
 
-class (Stream s, Alternative m, MonadPlus m)
-    => MonadParsec e s m | m -> e s where
+class (Stream s, MonadPlus m) => MonadParsec e s m | m -> e s where
 
   -- | The most general way to stop parsing and report a trivial
   -- 'ParseError'.