git.iko.soy/typeable/wai
on master help sign in
Switch remoteHost to a ByteString
commitdb319e8d90fb17ef577ec23e01562d86a941b80a authorMichael Snoyman <michael@snoyman.com> dateSat 30 Jan 2010, 23:17 (17 years ago) parent9f9a82a
2 files changed+2−2
compare with master
unifiedsplit
Network/Wai.hs+1−1 Network/Wai/Handler/SimpleServer.hs+1−1
Network/Wai.hs+1−1
@@ -244,7 +244,7 @@ data Request = Request
244244 , urlScheme :: UrlScheme
245245 , requestBody :: IO (Maybe B.ByteString)
246246 , errorHandler :: String -> IO ()
247− , remoteHost :: String
247+ , remoteHost :: B.ByteString
248248 }
249249
250250data Response = Response
Network/Wai/Handler/SimpleServer.hs+1−1
@@ -132,7 +132,7 @@ parseRequest port lines' handle remoteHost' = do
132132 , urlScheme = HTTP
133133 , requestBody = requestBodyHandle handle mlen
134134 , errorHandler = System.IO.hPutStr System.IO.stderr
135− , remoteHost = remoteHost'
135+ , remoteHost = B8.pack remoteHost'
136136 }
137137
138138requestBodyHandle :: Handle -> MVar Int -> IO (Maybe BS.ByteString)