@@ -18,7 +18,6 @@ import Control.Monad
1818import Control.Monad.Trans
1919import Control.Monad.Cont (ContT)
2020import Control.Monad.Error (Error, ErrorT)
21−import Control.Monad.Except (ExceptT)
2221import Control.Monad.List (ListT)
2322import Control.Monad.Reader (ReaderT)
2423import Control.Monad.Trans.Identity (IdentityT)
@@ -157,9 +156,7 @@ instance (Error e, MonadDeclare d m) => MonadDeclare d (ErrorT e m) where
157156 declare = lift . declare
158157 look = lift look
159158
160−instance MonadDeclare d m => MonadDeclare d (ExceptT e m) where
161− declare = lift . declare
162− look = lift look
159+-- Note: ExceptT not provided because it is not available in ghc 7.8.
163160
164161instance MonadDeclare d m => MonadDeclare d (IdentityT m) where
165162 declare = lift . declare