   (fnk [branch] (branch-path branch))
 
   :handle-not-found
-  {:links {:up {:href (path-for :service-document-handler)}}
-   :error "Workbook not found."}
+  (error-body "Workbook not found.")
 
   :handle-unprocessable-entity
-  {:links {:up {:href (path-for :service-document-handler)}}
-   :error "Branch name is missing."})
+  (error-body "Branch name is missing."))
 
 ;; ---- Add Query -------------------------------------------------------------
 


(def media-types ["application/json" "application/transit+json"
                  "application/edn"])

;; ---- Routes ----------------------------------------------------------------


     :name (:branch/name branch)})

  :handle-not-found
  (error-body "Branch not found."))

(defnk put-branch-handler [[:params conn id] headers :as req]
  (if-let [new-workbook-id (:workbook-id (:params req))]
