Compare commits
1 Commits
master
...
remove-sup
Author | SHA1 | Date |
---|---|---|
Sebastian Crane | b3a41acd51 |
|
@ -46,16 +46,14 @@
|
||||||
:irc irc}))
|
:irc irc}))
|
||||||
|
|
||||||
(defn stop [system]
|
(defn stop [system]
|
||||||
(do
|
(save-state
|
||||||
(save-state
|
(get-in system [:config :data-file])
|
||||||
(get-in system [:config :data-file])
|
(deref (:state system)))
|
||||||
(deref (:state system)))
|
(irclj.core/quit (system :irc)))
|
||||||
(irclj.core/quit (system :irc))))
|
|
||||||
|
|
||||||
(defn restart [system-var]
|
(defn restart [system-var]
|
||||||
(do
|
(stop (deref system-var))
|
||||||
(stop (deref system-var))
|
(alter-var-root system-var start))
|
||||||
(alter-var-root system-var start)))
|
|
||||||
|
|
||||||
(defn -main [& args]
|
(defn -main [& args]
|
||||||
(let [main-system (system/start nil)]
|
(let [main-system (system/start nil)]
|
||||||
|
|
Loading…
Reference in New Issue