 (defn parse-tag
   [tag]
   (->
-   (zipmap [:prefix :proj :ver :path :sha :no-parent] (s/split tag #"--"))
+   (zipmap [:prefix :proj :version :path :sha :no-parent] (s/split tag #"--"))
    (update-in [:path] (fnil #(s/replace % #"%" "/") :NOT_FOUND))
    (update-in [:proj] (fnil #(s/replace % #"%" "/") :NOT_FOUND))))
 

                                  (= (str proj-name) (:proj t))
                                  (= found-path (:path t))))
                              (:refs next-commit)))
                (let [ver (-> reflist first :ver)]
                  (assert (not= nil ver) "Failed to find version for commit.")
                  {:sha (:sha current)
                   :ctime (:ctime current)
                   :ver ver
                   :path found-path
                   :proj proj-name
                   :gitdir gitdir

                  (assoc :repo (-> (remotes (:gitdir info)) :origin :fetch))
                  (update-in [:sha] #(subs (str % "--------") 0 7)))))
       (sort-by :ctime)
       (print-table [:repo :proj :version :branch :path :ctime :sha]))
  (newline))

(defn fresh-version [[prj ver :as dep]]
