michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add log message for starting server

Browse source
This commit is contained in:
Nicholas Kariniemi 2013-08-18 11:32:53 +03:00
parent dbd6222251
commit 6754e05001
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/clj/grub/core.clj
View file

@ -36,8 +36,10 @@
(handler/site routes)))) (handler/site routes))))
(defn -main [& args] (defn -main [& args]
(db/connect-and-handle-events) (let [port 3000]
(defonce stop-server (httpkit/run-server app {:port 3000})) (println (str "Starting server on localhost:" port))
(when (some #(= % "integration") args) (db/connect-and-handle-events)
(integration-test/run) (defonce stop-server (httpkit/run-server app {:port port}))
(stop-server))) (when (some #(= % "integration") args)
(integration-test/run)
(stop-server))))