@@ -49,7 +49,7 @@ isWebSocketsReq req =
49-- 'WS.sendTextData' conn ("Hello, client!" :: 'Data.Text.Text')
49-- 'WS.sendTextData' conn ("Hello, client!" :: 'Data.Text.Text')
51-- backupApp :: 'Wai.Application'
51-- backupApp :: 'Wai.Application'
52−-- backupApp = 'Wai.respondLBS' 'Network.HTTP.Types.status400' [] "Not a WebSocket request"
52+-- backupApp = 'Wai.responseLBS' 'Network.HTTP.Types.status400' [] "Not a WebSocket request"
54websocketsOr :: WS.ConnectionOptions
54websocketsOr :: WS.ConnectionOptions
55 -> WS.ServerApp
55 -> WS.ServerApp