From 6c3c312a4846ba795fe43947d75054a9b61b08b7 Mon Sep 17 00:00:00 2001
From: Michael <michael@snoyman.com>
Date: Wed, 5 Jan 2011 23:48:12 +0200
Subject: [PATCH] Compile with new remoteHost

---
 Yesod/Dispatch.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Yesod/Dispatch.hs b/Yesod/Dispatch.hs
index f277ef37..40034246 100644
--- a/Yesod/Dispatch.hs
+++ b/Yesod/Dispatch.hs
@@ -258,7 +258,9 @@ toWaiApp' y key' segments env = do
     now <- liftIO getCurrentTime
     let getExpires m = fromIntegral (m * 60) `addUTCTime` now
     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' =
             case key' of
                 Nothing -> []