     (if (string? match)
       (= match name)
       (re-find match name))))
-
-(def metadata-edn "_metadata.edn")
 
 (defn find-artifacts
   ([dir]

    (upload-request
      db
      groupname
      session
      (fn [_ upload-dir]
        (spit (io/file upload-dir metadata-edn)

              (upload-request
                db
                groupname
                artifact
                session
                (fn [account upload-dir]
                  (let [file (io/file upload-dir group artifact file)]
