Fix some code
commit35686776d1242f38682df0672a12aff0b3a4643c
authorMichael Snoyman <michael@snoyman.com>
dateSun 19 Jan 2014, 15:49 (13 years ago)
parente88c696
wai-websockets/Network/Wai/Handler/WebSockets.hs+1−1
@@ -38,7 +38,7 @@ interceptWith opts app req = case lookup "upgrade" (Wai.requestHeaders req) of
3838 _ -> Nothing
3939 where
4040 req' = WS.RequestHead
41− (Wai.rawPathInfo req `S.append` Wai.rawQueryString req)
41+ (Wai.rawPathInfo req `BC.append` Wai.rawQueryString req)
4242 (Wai.requestHeaders req)
4343 (Wai.isSecure req)
4444