Include rawQueryString in WS.RequestHead #217
commit4b2e7eb557e6d8fb6d3d39385f79ea502c2ad7fe
authorMichael Snoyman <michael@snoyman.com>
dateSat 18 Jan 2014, 19:45 (13 years ago)
parent5f28ae6
wai-websockets/Network/Wai/Handler/WebSockets.hs+4−1
@@ -37,7 +37,10 @@ interceptWith opts app req = case lookup "upgrade" (Wai.requestHeaders req) of
3737 | otherwise -> Nothing
3838 _ -> Nothing
3939 where
40− req' = WS.RequestHead (Wai.rawPathInfo req) (Wai.requestHeaders req) (Wai.isSecure req)
40+ req' = WS.RequestHead
41+ (Wai.rawPathInfo req `S.append` Wai.rawQueryString req)
42+ (Wai.requestHeaders req)
43+ (Wai.isSecure req)
4144
4245--------------------------------------------------------------------------------
4346---- | Internal function to run the WebSocket io-streams using the conduit library