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

Added onRequest

Browse Source
This commit is contained in:
Michael Snoyman 2010-02-25 07:42:18 +02:00
parent c85a542888
commit 0fe88968dc
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Yesod.hs
View File

@ -52,6 +52,10 @@ class Yesod a where
-> Content -> Content
applyLayout _ _ t b = cs (cs (Tag "title" [] $ cs t, b) :: HtmlDoc) applyLayout _ _ t b = cs (cs (Tag "title" [] $ cs t, b) :: HtmlDoc)
-- | Gets called at the beginning of each request. Useful for logging.
onRequest :: a -> RawRequest -> IO ()
onRequest _ _ = return ()
class Yesod a => YesodApproot a where class Yesod a => YesodApproot a where
-- | An absolute URL to the root of the application. -- | An absolute URL to the root of the application.
approot :: a -> Approot approot :: a -> Approot
@ -125,6 +129,7 @@ toWaiApp' y resource session env = do
let types = httpAccept env let types = httpAccept env
handler = resources (map cs resource) $ W.requestMethod env handler = resources (map cs resource) $ W.requestMethod env
rr <- parseWaiRequest env session rr <- parseWaiRequest env session
onRequest y rr
res <- runHandler handler errorHandler rr y types res <- runHandler handler errorHandler rr y types
responseToWaiResponse res responseToWaiResponse res