From 3c8cb7f43c89e9a2b754adc5e639985f0b95b1f1 Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Thu, 31 Dec 2015 16:42:38 +0100 Subject: Remove some redundant definitions/constraints Starting with GHC 7.10 and base-4.8, `Monad` implies `Applicative`, which allows to simplify some definitions to exploit the superclass relationship. This a first refactoring to that end. --- libraries/ghci/GHCi/TH.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'libraries/ghci/GHCi/TH.hs') diff --git a/libraries/ghci/GHCi/TH.hs b/libraries/ghci/GHCi/TH.hs index f379dbc546..717192e39d 100644 --- a/libraries/ghci/GHCi/TH.hs +++ b/libraries/ghci/GHCi/TH.hs @@ -72,7 +72,6 @@ instance Monad GHCiQ where do (m', s') <- runGHCiQ m s (a, s'') <- runGHCiQ (f m') s' return (a, s'') - return = pure fail err = GHCiQ $ \s -> throwIO (GHCiQException s err) getState :: GHCiQ QState -- cgit v1.2.1