Remove superfluous utilisation of 'do' forms #8
|
@ -46,16 +46,14 @@
|
|||
:irc irc}))
|
||||
|
||||
(defn stop [system]
|
||||
(do
|
||||
(save-state
|
||||
(get-in system [:config :data-file])
|
||||
(deref (:state system)))
|
||||
(irclj.core/quit (system :irc))))
|
||||
(save-state
|
||||
(get-in system [:config :data-file])
|
||||
(deref (:state system)))
|
||||
(irclj.core/quit (system :irc)))
|
||||
|
||||
(defn restart [system-var]
|
||||
(do
|
||||
(stop (deref system-var))
|
||||
(alter-var-root system-var start)))
|
||||
(stop (deref system-var))
|
||||
(alter-var-root system-var start))
|
||||
|
||||
(defn -main [& args]
|
||||
(let [main-system (system/start nil)]
|
||||
|
|
Loading…
Reference in New Issue