gracefully handle repl client page server requests in server only mode

swannodette · swannodette · commit f83b1f766c32 · 2020-04-12T23:09:15.000-04:00
diff --git a/src/main/clojure/cljs/repl/browser.clj b/src/main/clojure/cljs/repl/browser.clj
@@ -116,17 +116,20 @@
   (slurp (:client-js @browser-state)))
 
 (defn send-repl-client-page
-  [request conn opts]
-  (server/send-and-close conn 200
-    (str "<html><head><meta charset=\"UTF-8\"></head><body>
-          <script type=\"text/javascript\">"
-         (repl-client-js)
-         "</script>"
-         "<script type=\"text/javascript\">
-          clojure.browser.repl.client.start(\"http://" (-> request :headers :host) "\");
+  [{:keys [path] :as request} conn opts]
+  (if-not browser-state
+    (server/send-404 conn path)
+    (server/send-and-close conn 200
+      (str
+        "<html><head><meta charset=\"UTF-8\"></head><body>"
+        "<script type=\"text/javascript\">"
+        (repl-client-js)
+        "</script>"
+        "<script type=\"text/javascript\">
+        clojure.browser.repl.client.start(\"http://" (-> request :headers :host) "\");
           </script>"
-         "</body></html>")
-    "text/html"))
+        "</body></html>")
+     "text/html")))
 
 (defn default-index [output-to]
   (str
