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

Removed type variable on Response et al

Browse Source
This commit is contained in:
Michael Snoyman 2010-12-16 20:30:26 +02:00
parent a6fd8ab18b
commit dc25a66d5b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Dispatch.hs
View File

@ -240,7 +240,7 @@ sessionName = "_SESSION"
-- handler. This is the same as 'toWaiAppPlain', except it includes three -- handler. This is the same as 'toWaiAppPlain', except it includes three
-- middlewares: GZIP compression, JSON-P and path cleaning. This is the -- middlewares: GZIP compression, JSON-P and path cleaning. This is the
-- recommended approach for most users. -- recommended approach for most users.
toWaiApp :: (Yesod y, YesodSite y) => y -> IO (W.Application a) toWaiApp :: (Yesod y, YesodSite y) => y -> IO W.Application
toWaiApp y = do toWaiApp y = do
a <- toWaiAppPlain y a <- toWaiAppPlain y
return $ gzip False return $ gzip False
@ -250,7 +250,7 @@ toWaiApp y = do
-- | Convert the given argument into a WAI application, executable with any WAI -- | Convert the given argument into a WAI application, executable with any WAI
-- handler. This differs from 'toWaiApp' in that it only uses the cleanpath -- handler. This differs from 'toWaiApp' in that it only uses the cleanpath
-- middleware. -- middleware.
toWaiAppPlain :: (Yesod y, YesodSite y) => y -> IO (W.Application a) toWaiAppPlain :: (Yesod y, YesodSite y) => y -> IO W.Application
toWaiAppPlain a = do toWaiAppPlain a = do
key' <- if enableClientSessions a key' <- if enableClientSessions a
then Just `fmap` encryptKey a then Just `fmap` encryptKey a
@ -263,7 +263,7 @@ toWaiApp' :: (Yesod y, YesodSite y)
-> Maybe Key -> Maybe Key
-> [String] -> [String]
-> W.Request -> W.Request
-> IO (W.Response a) -> IO W.Response
toWaiApp' y key' segments env = do toWaiApp' y key' segments env = do
now <- getCurrentTime now <- getCurrentTime
let getExpires m = fromIntegral (m * 60) `addUTCTime` now let getExpires m = fromIntegral (m * 60) `addUTCTime` now