Forget it, let's just work it out
This commit is contained in:
parent
4b785b610c
commit
2de1824ee9
|
@ -185,10 +185,7 @@
|
|||
missing (filter (fn [k] (not (get opts k))) keys)]
|
||||
(cond (:help opts) (exit! 0 (println (:summary opts)))
|
||||
(:errors opts) (exit! 1 (println (str/join \newline (:errors opts))))
|
||||
(not (empty? missing)) (exit! 2 (println (str "missing arguments: " (str/join " " (map name missing))
|
||||
\newline
|
||||
"available: "
|
||||
(str/join " " (keys opts)))))
|
||||
(not (empty? missing)) (exit! 2 (println (str "missing arguments: " (str/join " " (map name missing)))))
|
||||
:else opts)))
|
||||
|
||||
(defn -main [& args]
|
||||
|
|
Loading…
Reference in New Issue