@@ -30,10 +30,10 @@ isWebSocketsReq req =
30-- WebSocket requests.
30-- WebSocket requests.
33−-- websocketsOr opts ws_app backup_app = \\req send_response ->
33+-- websocketsOr opts ws_app backup_app = \\req respond ->
34-- __case__ 'websocketsApp' opts ws_app req __of__
34-- __case__ 'websocketsApp' opts ws_app req __of__
35-- 'Nothing' -> backup_app req send_response
35-- 'Nothing' -> backup_app req send_response
36−-- 'Just' res -> send_response res
36+-- 'Just' res -> respond res
39-- For example, below is an 'Wai.Application' that sends @"Hello, client!"@ to
39-- For example, below is an 'Wai.Application' that sends @"Hello, client!"@ to
@@ -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 _ response = response $ 'Wai.responseLBS' 'Network.HTTP.Types.status400' [] "Not a WebSocket request"
52+-- backupApp _ respond = respond $ 'Wai.responseLBS' 'Network.HTTP.Types.status400' [] "Not a WebSocket request"
54websocketsOr :: WS.ConnectionOptions
54websocketsOr :: WS.ConnectionOptions
55 -> WS.ServerApp
55 -> WS.ServerApp