better message

1 files changed, 1 insertions, 1 deletions

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