From a6180f446dc97de56a2ed2e117c3be196d76f20b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 24 Apr 2017 14:04:55 -0400 Subject: also enable compression in server --- Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Server.hs') diff --git a/Server.hs b/Server.hs index 5467fbe..527ac02 100644 --- a/Server.hs +++ b/Server.hs @@ -93,7 +93,7 @@ server o = runSettings settings . app o =<< newServerState defaultSettings app :: ServerOpts -> TVar ServerState -> Application -app o ssv = websocketsOr WS.defaultConnectionOptions (websocketApp o ssv) webapp +app o ssv = websocketsOr connectionOptions (websocketApp o ssv) webapp where webapp _ respond = respond $ responseLBS status400 [] "Not a WebSocket request" -- cgit v1.2.3