     (let [{:keys [exit out err]} (sh/sh "gpg" "--homedir" temp-home
                                         "--verify" (str sig-file) (str file))]
       (doseq [f (reverse (file-seq (io/file temp-home)))] (.delete f))
-      (zero? exit))))
+      (or (zero? exit) (println "GPG error:" out "\n" err)))))
 
 (defn signed? [blockers file keys]
   (let [sig-file (str file ".asc")]

    (conj blockers "Snapshot versions cannot be promoted")
    blockers))

(defn check-field [blockers info field]
  (if (field info)
    blockers
    (conj blockers (str "Missing " (name field)))))


        info (try (maven/pom-to-map pom)
                  (catch Exception e
                    (.printStackTrace e) {}))]
    (-> []
        (check-version version)
        (check-file jar)
        (check-file pom)

        (check-field info :description (complement empty?))
        (check-field info :url (partial re-find #"http:"))
        (check-field info :licenses seq)
        (check-field info :scm identity)

        (signed? jar keys)
        (signed? pom keys)
        (unpromoted? info))))

(def releases {:url (config :releases-url)
               :username (config :releases-access-key)
               :passphrase (config :releases-secret-key)})

