diff options
Diffstat (limited to 'Server.hs')
-rw-r--r-- | Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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" |