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)]
|
missing (filter (fn [k] (not (get opts k))) keys)]
|
||||||
(cond (:help opts) (exit! 0 (println (:summary opts)))
|
(cond (:help opts) (exit! 0 (println (:summary opts)))
|
||||||
(:errors opts) (exit! 1 (println (str/join \newline (:errors 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))
|
(not (empty? missing)) (exit! 2 (println (str "missing arguments: " (str/join " " (map name missing)))))
|
||||||
\newline
|
|
||||||
"available: "
|
|
||||||
(str/join " " (keys opts)))))
|
|
||||||
:else opts)))
|
:else opts)))
|
||||||
|
|
||||||
(defn -main [& args]
|
(defn -main [& args]
|
||||||
|
|
Loading…
Reference in New Issue