@@ -25,6 +25,7 @@ import Control.Monad.IO.Class
2525import Control.Monad.Trans.Class
2626import Control.Monad.Trans.Control
2727import Control.Monad.Trans.Either
28+import Control.Monad.Trans.Except
2829import Control.Monad.Trans.Maybe
2930import Control.Monad.Trans.Reader
3031import Control.Monad.Trans.Resource
@@ -551,6 +552,8 @@ instance Katip m => Katip (ReaderT s m) where
551552instance Katip m => Katip (EitherT s m) where
552553 getLogEnv = lift getLogEnv
553554
555+instance Katip m => Katip (ExceptT s m) where
556+ getLogEnv = lift getLogEnv
554557
555558instance Katip m => Katip (MaybeT m) where
556559 getLogEnv = lift getLogEnv