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

Monad instance import, wai(-extra) version

Browse Source
This commit is contained in:
Michael Snoyman 2010-05-21 08:00:54 +03:00
parent 712110a2ef
commit 7762559c86
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Request.hs
View File

@ -49,6 +49,7 @@ import "transformers" Control.Monad.Trans
#endif #endif
import Control.Monad (liftM) import Control.Monad (liftM)
import Network.Wai.Parse import Network.Wai.Parse
import Control.Monad.Instances () -- I'm missing the instance Monad ((->) r
type ParamName = String type ParamName = String
type ParamValue = String type ParamValue = String
@ -59,9 +60,6 @@ class Monad m => RequestReader m where
getRequest :: m Request getRequest :: m Request
instance RequestReader ((->) Request) where instance RequestReader ((->) Request) where
getRequest = id getRequest = id
instance Monad ((->) Request) where -- FIXME what's happening here?
return = const
f >>= g = \r -> g (f r) r
-- | Get the list of supported languages supplied by the user. -- | Get the list of supported languages supplied by the user.
-- --

4
yesod.cabal
View File

@ -32,8 +32,8 @@ flag buildtests
library library
build-depends: base >= 4 && < 5, build-depends: base >= 4 && < 5,
time >= 1.1.3 && < 1.2, time >= 1.1.3 && < 1.2,
wai >= 0.0.1 && < 0.3, wai >= 0.1.0 && < 0.2,
wai-extra >= 0.1.1 && < 0.2, wai-extra >= 0.1.2 && < 0.2,
authenticate >= 0.6.2 && < 0.7, authenticate >= 0.6.2 && < 0.7,
bytestring >= 0.9.1.4 && < 0.10, bytestring >= 0.9.1.4 && < 0.10,
directory >= 1 && < 1.1, directory >= 1 && < 1.1,