Fix double MaybeT instance
authorHerbert Valerio Riedel <hvr@gnu.org>
Tue, 8 Dec 2015 10:45:38 +0000 (11:45 +0100)
committerHerbert Valerio Riedel <hvr@gnu.org>
Tue, 8 Dec 2015 10:45:38 +0000 (11:45 +0100)
This is a fixup to fd3b845c01aa26b6e5cd12c00af59e5468e21b1b
which didn't take into account 09333313f32be975faf9158fcd3648489d78ad82
having pushed as well.

compiler/main/DynFlags.hs

index c492a01..bceb51f 100644 (file)
@@ -180,7 +180,6 @@ import Control.Monad
 import Control.Monad.Trans.Class
 import Control.Monad.Trans.Writer
 import Control.Monad.Trans.Reader
-import qualified Control.Monad.Trans.Maybe as CMT
 #if MIN_VERSION_transformers(4,0,0)
 import Control.Monad.Trans.Except
 #endif
@@ -937,9 +936,6 @@ instance (Monad m, HasDynFlags m) => HasDynFlags (ReaderT a m) where
     getDynFlags = lift getDynFlags
 
 instance (Monad m, HasDynFlags m) => HasDynFlags (MaybeT m) where
-    getDynFlags = liftMaybeT getDynFlags
-
-instance (Monad m, HasDynFlags m) => HasDynFlags (CMT.MaybeT m) where
     getDynFlags = lift getDynFlags
 
 #if MIN_VERSION_transformers(4,0,0)