From ee100d7be0910dcdc6851bf843c229276c7dab9e Mon Sep 17 00:00:00 2001 From: Ross MacLeod Date: Wed, 21 Sep 2016 14:41:30 -0400 Subject: [PATCH] Add instance of MonadHandler and MonadWidget for ExceptT --- yesod-core/Yesod/Core/Class/Handler.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/yesod-core/Yesod/Core/Class/Handler.hs b/yesod-core/Yesod/Core/Class/Handler.hs index f525b3be..bd4788c3 100644 --- a/yesod-core/Yesod/Core/Class/Handler.hs +++ b/yesod-core/Yesod/Core/Class/Handler.hs @@ -24,6 +24,7 @@ import Control.Monad.Trans.Identity ( IdentityT) import Control.Monad.Trans.List ( ListT ) import Control.Monad.Trans.Maybe ( MaybeT ) import Control.Monad.Trans.Error ( ErrorT, Error) +import Control.Monad.Trans.Except ( ExceptT ) import Control.Monad.Trans.Reader ( ReaderT ) import Control.Monad.Trans.State ( StateT ) import Control.Monad.Trans.Writer ( WriterT ) @@ -55,6 +56,7 @@ GO(IdentityT) GO(ListT) GO(MaybeT) GOX(Error e, ErrorT e) +GO(ExceptT e) GO(ReaderT r) GO(StateT s) GOX(Monoid w, WriterT w) @@ -78,6 +80,7 @@ GO(IdentityT) GO(ListT) GO(MaybeT) GOX(Error e, ErrorT e) +GO(ExceptT e) GO(ReaderT r) GO(StateT s) GOX(Monoid w, WriterT w)