@@ -30,10 +30,10 @@ isWebSocketsReq req =
3030-- WebSocket requests.
3131--
3232-- @
33−-- websocketsOr opts ws_app backup_app = \\req send_response ->
33+-- websocketsOr opts ws_app backup_app = \\req respond ->
3434-- __case__ 'websocketsApp' opts ws_app req __of__
3535-- 'Nothing' -> backup_app req send_response
36−-- 'Just' res -> send_response res
36+-- 'Just' res -> respond res
3737-- @
3838--
3939-- For example, below is an 'Wai.Application' that sends @"Hello, client!"@ to
@@ -49,7 +49,7 @@ isWebSocketsReq req =
4949-- 'WS.sendTextData' conn ("Hello, client!" :: 'Data.Text.Text')
5050--
5151-- 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"
5353-- @
5454websocketsOr :: WS.ConnectionOptions
5555 -> WS.ServerApp