From 0c2b58751b0a56d5a6ef4e6a1597348abbdab6a2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Apr 2017 17:01:05 -0400 Subject: better message --- Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Server.hs b/Server.hs index f6f5041..136aefa 100644 --- a/Server.hs +++ b/Server.hs @@ -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 -- cgit v1.2.3