             [manifold.bus :as bus]
             [clojure.core.async :as async]))
 
-(def invalid-websocket-response
+(def invalid-response
   {:status 400
    :headers {"Content-Type" "text/plain"}
-   :body "<h1>400</h1> Expected websocket request."})
+   :body "<h1>400</h1> This isn't what I wanted!"})
 
 ;;; The following is *very bad* *placeholder* code, to be replaced with an
 ;;; actual database ASAP.

                        (fn [_] nil))]
              (if-not conn
                ;; You didn't connect over ws://
                invalid-websocket-response

                ;; First message should be of the form "inited:<INITIAL TEXT>"
                (d/let-flow

                  (let [sid (Integer/parseInt stream-id)]
                    (if (find-stream sid)
                      (read-stream-handler sid request)
                      invalid-response))
                  (catch NumberFormatException _ invalid-response)))
           (GET "/new" req (new-stream-handler req)))
  (GET "/" [] "Home sweet home")
  (route/not-found "Not Found"))
