          (let [cmd (.read in)]
            (if (= -1 cmd)
              (finish-deploy ctx files)
-             (let [cmd (char cmd)]           
+             (let [cmd (char cmd)]
+               ;; TODO: use core.match
                (condp = cmd
-                   (char 0)      (do (recur files false))
+                   (char 0)      (recur files false)
                    \C            (recur (conj files (scp-copy ctx)) true)
                    \D            (do (safe-read-line in) (recur files true))
                    \T            (do (safe-read-line in) (recur files true))

        (do
          (.println *err* (str "\nDeploying " (:group jarmap) "/"
                               (:name jarmap) " " (:version jarmap)))
          (db/add-jar (first (.getArgs ctx)) jarmap true)
          (maven/deploy-model jarfile model
                              (str "file://" (:repo config)))
          (db/add-jar (first (.getArgs ctx)) jarmap))
        (throw (Exception. (str "You need to give me one of: " names)))))
    (.println *err* (str "\nSuccess! Your jars are now available from "
                         "http://clojars.org/"))

                    FileOutputStream)
           com.martiansoftware.nailgun.NGContext)
  (:use [clojars.config :only [config]])
  (:require [clojars.maven :as maven]
            [clojars.db :as db])
  (:gen-class
   :methods [#^{:static true}
             [nailMain [com.martiansoftware.nailgun.NGContext] void]]))
