@@ -48,6 +48,7 @@ import Control.Monad.IO.Class
4848import Control.Monad.RWS.Class
4949import Control.Monad.Trans.Class
5050import Control.Monad.Trans.Control
51+import Control.Monad.Trans.Either (EitherT)
5152import Control.Monad.Trans.Error (ErrorT)
5253import Control.Monad.Trans.Identity (IdentityT)
5354import Control.Monad.Trans.List (ListT)
@@ -122,6 +123,7 @@ class ContextualLog m where
122123
123124TRANS(IdentityT)
124125TRANS(MaybeT)
126+TRANS(EitherT e)
125127TRANS(ListT)
126128TRANS(ReaderT r)
127129TRANS(Strict.StateT s)