luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

process update

Browse source
This commit is contained in:
Michiel Borkent 2022-06-25 21:21:27 +02:00
parent 6259797f6a
commit 72e9b6ceee
2 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
process

@ -1 +1 @@
Subproject commit d7331aa5522c44bcd5be74abacf11dbf3903d764 Subproject commit 3988cd008e22d836f5cd400c7baf264aafa376da

20
src/babashka/impl/nrepl_server.clj
View file

@ -1,16 +1,16 @@
(ns babashka.impl.nrepl-server (ns babashka.impl.nrepl-server
{:no-doc true} {:no-doc true}
(:require [babashka.impl.common :as common] (:require [babashka.impl.common :as common]
[babashka.nrepl.server :refer [start-server! stop-server!]] [babashka.nrepl.server :as server]
[sci.core :refer [create-ns new-var copy-var]])) [sci.core :as sci]))
(defn start-server!
([]
(server/start-server! @common/ctx))
([opts]
(server/start-server! @common/ctx opts)))
(def nrepl-server-namespace (def nrepl-server-namespace
(let [ns-sci (create-ns 'babashka.nrepl.server)] (let [ns-sci (create-ns 'babashka.nrepl.server)]
{'start-server! (new-var 'start-server! {'start-server! (sci/copy-var start-server! ns-sci)
(fn 'stop-server! (sci/copy-var server/stop-server! ns-sci)}))
([]
(start-server! @common/ctx))
([opts]
(start-server! @common/ctx opts)))
{:ns ns-sci})
'stop-server! (copy-var stop-server! ns-sci)}))