 
 (defn- get-head
   "Get the contents of the application config file for head revision"
-  [application]
+  [application branch]
   (info "Attempting to get head for the application " application)
   (let [file-name (str application  ".clj")
-        git (Git/open (as-file (repo-path application)))
+        git (Git/open (as-file (repo-path application branch)))
         repo (.getRepository git)
         commit-id (.resolve repo "HEAD")
         rwalk (RevWalk. repo)

  (str base-git-url repo-name))

(defn- repo-path
  [name]
  (str base-git-path name))

(defn- repo-branch
  "Always look for the master branch for the environment default configuration file"

            [clj-http.client :as client]
            [clj-time.coerce :refer [from-long]]
            [clj-time.format :refer [unparse formatters]]
            [clojure.string :refer [upper-case lower-case split]]
            [cheshire.core :refer [parse-string]]
            [slingshot.slingshot :refer [try+ throw+]]
            [me.raynes.conch :as conch])
