LibreGaming/matchbot
LibreGaming
/
matchbot
15
1
Fork 1
Code Issues Pull Requests Projects Releases 3 Activity

Remove superfluous utilisation of 'do' forms #8

Merged
seabass merged 1 commits from seabass/matchbot:remove-superfluous-do-forms into master 2022-04-09 22:46:18 +02:00
Conversation 0 Commits 1 Files Changed 1 +6 -8
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/system.clj
View File

@ -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)]