Add main function
Signed-off-by: Sebastian Crane <seabass-labrax@gmx.com>
This commit is contained in:
parent
a2a041c9d1
commit
7857a1acf5
|
@ -60,3 +60,9 @@
|
||||||
(swap! system-atom stop)
|
(swap! system-atom stop)
|
||||||
(reset! system-atom (system))
|
(reset! system-atom (system))
|
||||||
(swap! system-atom start)))
|
(swap! system-atom start)))
|
||||||
|
|
||||||
|
(defn -main [& args]
|
||||||
|
(let [main-system (atom (system/system))]
|
||||||
|
(swap! main-system system/start)
|
||||||
|
(.addShutdownHook (Runtime/getRuntime)
|
||||||
|
(Thread. (partial swap! main-system stop)))))
|
||||||
|
|
Loading…
Reference in New Issue