From 351cd63f9bae49ea7871a484a49e251f9f246a06 Mon Sep 17 00:00:00 2001 From: jschaul Date: Thu, 9 May 2019 20:39:12 +0200 Subject: [PATCH] Add comment --- services/cannon/src/Cannon/API.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/services/cannon/src/Cannon/API.hs b/services/cannon/src/Cannon/API.hs index 15d007d8c22..c936791a2e6 100644 --- a/services/cannon/src/Cannon/API.hs +++ b/services/cannon/src/Cannon/API.hs @@ -137,7 +137,7 @@ await (u ::: a ::: c ::: r) = do e <- wsenv case websocketsApp wsoptions (wsapp (mkKey u a) c l e) r of Nothing -> return $ errorRs status426 "request-error" "websocket upgrade required" - Just rs -> return rs + Just rs -> return rs -- ensure all middlewares ignore RawResponse - see Note [Raw Response] where status426 = mkStatus 426 "Upgrade Required" wsoptions = Ws.defaultConnectionOptions