       (name2operation (:query opts))
       (nil? (:errors opts)))
     (run opts)
-    (usageError banner opts "")))
+    (do (usageError banner opts "")
+        (System/exit 1))))
 
 (defn -main
   [& args]


(defn treat-possible-errors [opts banner]
  (when (:errors opts)
    (usageError banner opts ""))
  (when (conflicting-options? opts)
    (usageError banner opts self-exclusive-modes-error)))

(defn run-linter-mode [opts]
  (when-not (:dir opts)

  (when (:errors opts)
    (doseq [e (:errors opts)]
      (println " * " e)))
  (println banner))

(defn info [msg]
  (println " [info] " msg))
