diff options
-rw-r--r-- | Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -109,7 +109,7 @@ app :: ServerOpts -> TVar ServerState -> Application app o ssv = websocketsOr connectionOptions (websocketApp o ssv) webapp where webapp _ respond = respond $ - responseLBS status400 [] "Not a WebSocket request" + responseLBS status400 [] "This is a debug-me server, it does not serve any html pages." websocketApp :: ServerOpts -> TVar ServerState -> WS.ServerApp websocketApp o ssv pending_conn = do |