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

Fix remoteHost session issue

Browse Source
This commit is contained in:
Michael Snoyman 2011-02-05 19:58:14 +02:00
parent 37c261fa1e
commit 7b7cbc950b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Core.hs
View File

@ -239,9 +239,8 @@ defaultYesodRunner s master toMasterRoute mkey murl handler req = 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 master let exp' = getExpires $ clientSessionDuration master
-- FIXME will show remoteHost give the answer I need? will it include port let rh = takeWhile (/= ':') $ show $ W.remoteHost req
-- information that changes on each request? let host = if sessionIpAddress master then S8.pack rh else ""
let host = if sessionIpAddress master then S8.pack (show (W.remoteHost req)) else ""
let session' = let session' =
case mkey of case mkey of
Nothing -> [] Nothing -> []