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

Compile with new remoteHost

Browse Source
This commit is contained in:
Michael 2011-01-05 23:48:12 +02:00
parent 06db8b9508
commit 6c3c312a48
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Dispatch.hs
View File

@ -258,7 +258,9 @@ toWaiApp' y key' segments env = do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
let getExpires m = fromIntegral (m * 60) `addUTCTime` now let getExpires m = fromIntegral (m * 60) `addUTCTime` now
let exp' = getExpires $ clientSessionDuration y let exp' = getExpires $ clientSessionDuration y
let host = if sessionIpAddress y then W.remoteHost env else "" -- FIXME will show remoteHost give the answer I need? will it include port
-- information that changes on each request?
let host = if sessionIpAddress y then B.pack (show (W.remoteHost env)) else ""
let session' = let session' =
case key' of case key' of
Nothing -> [] Nothing -> []