Fixed docs example to compile
commit97065ac437e27d6cafcd52c0b89d8537776d728c
authorChris Allen <cma@bitemyapp.com>
dateFri 2 Sep 2016, 21:55 (10 years ago)
parent6508c6e
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.responseLBS' '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