@@ -1,4 +1,3 @@
1−{-# LANGUAGE CPP #-}
21{-# LANGUAGE DeriveFunctor #-}
32{-# LANGUAGE FlexibleInstances #-}
43{-# LANGUAGE FunctionalDependencies #-}
@@ -16,13 +15,11 @@ import Prelude ()
1615import Prelude.Compat
1716
1817import Control.Monad
19−import Control.Monad.Trans
2018import Control.Monad.Cont (ContT)
21−#if __GLASGOW_HASKELL__ >= 710
22−import Control.Monad.Except (ExceptT)
23−#endif
2419import Control.Monad.List (ListT)
2520import Control.Monad.Reader (ReaderT)
21+import Control.Monad.Trans
22+import Control.Monad.Trans.Except (ExceptT)
2623import Control.Monad.Trans.Identity (IdentityT)
2724import Control.Monad.Trans.Maybe (MaybeT)
2825import Control.Monad.Trans.Writer.Lazy as Lazy
@@ -154,11 +151,9 @@ instance MonadDeclare d m => MonadDeclare d (ContT r m) where
154151 declare = lift . declare
155152 look = lift look
156153
157−#if __GLASGOW_HASKELL__ >= 710
158154instance MonadDeclare d m => MonadDeclare d (ExceptT e m) where
159155 declare = lift . declare
160156 look = lift look
161−#endif
162157
163158instance MonadDeclare d m => MonadDeclare d (IdentityT m) where
164159 declare = lift . declare