haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MonadPlus (Jeremy Hughes)

Browse Source
This commit is contained in:
Michael Snoyman 2011-06-09 13:06:26 +03:00
parent cc813d9201
commit 3cf472dcf5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Handler.hs
View File

@ -120,7 +120,7 @@ import Control.Exception hiding (Handler, catch, finally)
import qualified Control.Exception as E import qualified Control.Exception as E
import Control.Applicative import Control.Applicative
import Control.Monad (liftM, join) import Control.Monad (liftM, join, MonadPlus)
import Control.Monad.IO.Class import Control.Monad.IO.Class
import Control.Monad.Trans.Class import Control.Monad.Trans.Class
@ -246,7 +246,7 @@ newtype GGHandler sub master m a =
GHandler GHandler
{ unGHandler :: GHInner sub master m a { unGHandler :: GHInner sub master m a
} }
deriving (Functor, Applicative, Monad, MonadIO, MonadControlIO) deriving (Functor, Applicative, Monad, MonadIO, MonadControlIO, MonadPlus)
instance MonadTrans (GGHandler s m) where instance MonadTrans (GGHandler s m) where
lift = GHandler . lift . lift . lift . lift lift = GHandler . lift . lift . lift . lift