git.iko.soy/typeable/wai
on master help sign in
Switch remoteHost to a ByteString
db319e8Michael Snoyman
Network/Wai.hs+1−1
compare with master
unifiedsplit
@@ -244,7 +244,7 @@ data Request = Request
244 , urlScheme :: UrlScheme
244 , urlScheme :: UrlScheme
245 , requestBody :: IO (Maybe B.ByteString)
245 , requestBody :: IO (Maybe B.ByteString)
246 , errorHandler :: String -> IO ()
246 , errorHandler :: String -> IO ()
247− , remoteHost :: String
247+ , remoteHost :: B.ByteString
248 }
248 }
249
249
250data Response = Response
250data Response = Response
Network/Wai/Handler/SimpleServer.hs+1−1
@@ -132,7 +132,7 @@ parseRequest port lines' handle remoteHost' = do
132 , urlScheme = HTTP
132 , urlScheme = HTTP
133 , requestBody = requestBodyHandle handle mlen
133 , requestBody = requestBodyHandle handle mlen
134 , errorHandler = System.IO.hPutStr System.IO.stderr
134 , errorHandler = System.IO.hPutStr System.IO.stderr
135− , remoteHost = remoteHost'
135+ , remoteHost = B8.pack remoteHost'
136 }
136 }
137
137
138requestBodyHandle :: Handle -> MVar Int -> IO (Maybe BS.ByteString)
138requestBodyHandle :: Handle -> MVar Int -> IO (Maybe BS.ByteString)