     (let [response @results/results]
         (send-response response request)))
 
-(defn error-response
+(defn create-error-response
     [job-name command message]
     {:status "error"
      :job-name job-name

                                                job-name git-repo branch)
                        (reload-job-list request)
                        (send-response request))
                    (-> (error-response (or job-name "not set!") "create" "invalid input")
                        (send-error-response request)))))
        (catch Exception e
                (-> (error-response "not set!" "create" "invalid input")
                    (send-error-response request)))))

(defn uri->job-name

                                                job-name git-repo branch)
                        ;(reload-job-list request)
                        (send-response request))
                    (-> (create-error-response (or job-name "not set!") "update" "invalid input")
                        (send-error-response request)))
                (-> (job-does-not-exist-response job-name "update")
                    (send-error-response request))))
        (catch Exception e
                (-> (create-error-response "not set!" "update" "invalid input")
                    (send-error-response request)))))

(defn get-jobs
