From 719de6242327623dcbf1a2a902c777a9d5054b82 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Fri, 22 Dec 2023 14:07:03 +0100 Subject: [PATCH] Avoid EDN read error in scittle nREPL --- src/scittle/nrepl.cljs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/scittle/nrepl.cljs b/src/scittle/nrepl.cljs index d4a8463..7a8041f 100644 --- a/src/scittle/nrepl.cljs +++ b/src/scittle/nrepl.cljs @@ -13,7 +13,8 @@ (.send (nrepl-websocket) (str (let [ns (or ns (str @!last-ns))] - (assoc payload :id id :session session :ns ns))))) + (-> (assoc payload :id id :session session :ns ns) + (dissoc :ctx)))))) (defn handle-nrepl-eval [{:keys [code] :as msg}] (let [[kind val] (try [::success (eval-string code)] @@ -68,7 +69,7 @@ (defn handle-nrepl-message [msg] (if-let [handler (ops (:op msg))] (handler msg) - (nrepl-reply (merge msg {:status ["error" "done"] :err "unkown-op"}) (assoc msg :ctx (store/get-ctx))))) + (nrepl-reply (merge msg {:status ["error" "done"] :err "unkown-op"}) msg))) (defn ws-url [host port path] (str "ws://" host ":" port "/" path))