Add exit command to interactive task.

This commit is contained in:
Phil Hagelberg 2010-10-01 19:32:28 -07:00
parent d446be077b
commit 69f8b7d6cd

View file

@ -15,7 +15,7 @@
(flush)
;; TODO: integrate with tab-completion in jLine
(let [input (.readLine *in*)]
(when input
(when (and input (not= input "exit"))
(let [[task-name & args] (string/split input #"\s")]
(apply-task task-name project args not-found)
(recur))))))