Merge branch 'master' of https://github.com/bitemyapp/wai
commite5b18cf5d52dc411602049efe5acd3871cb26116
authorMichael Snoyman <michael@snoyman.com>
dateSun 4 Sep 2016, 09:34 (10 years ago)
parent51b538697065ac
wai-websockets/Network/Wai/Handler/WebSockets.hs+1−1
@@ -49,7 +49,7 @@ isWebSocketsReq req =
4949-- 'WS.sendTextData' conn ("Hello, client!" :: 'Data.Text.Text')
5050--
5151-- backupApp :: 'Wai.Application'
52−-- backupApp = 'Wai.respondLBS' 'Network.HTTP.Types.status400' [] "Not a WebSocket request"
52+-- backupApp _ response = response $ 'Wai.responseLBS' 'Network.HTTP.Types.status400' [] "Not a WebSocket request"
5353-- @
5454websocketsOr :: WS.ConnectionOptions
5555 -> WS.ServerApp