Normal function called by wrapping function

wrapping-3.clj

(defn load-entities
  [f loader {:keys [::ooapi/type] :as request}]
  (if (= "relation" type)
    (f request)
    (when-result [entity                  (loader request)
                  offerings               (load-offerings loader request)
                  education-specification (if (= type "education-specification")
                                            entity
                                            (loader (assoc request
                                                      ::ooapi/type "education-specification"
                                                      ::ooapi/id (ooapi/education-specification-id entity))))]
      (f (assoc request
            ::ooapi/entity (assoc entity :offerings offerings)
            ::ooapi/education-specification education-specification)))))

(defn wrap-load-entities
  [f ooapi-loader]
  (let [loader (validating-loader ooapi-loader)]
    (fn [request]
      (load-entities f loader request))))

(let [ooapi-loader  (make-ooapi-http-loader gateway-root-url gateway-credentials)
      entity-loader (wrap-load-entities rio-config ooapi-loader)]
  ..)

(defn load-entities
  [{:keys [::ooapi/type] :as request} loader]
  (when-result [entity                  (loader request)
                offerings               (load-offerings loader request)
                education-specification (if (= type "education-specification")
                                          entity
                                          (loader (assoc request
                                                         ::ooapi/type "education-specification"
                                                         ::ooapi/id (ooapi/education-specification-id entity))))]
    (assoc request
           ::ooapi/entity (assoc entity :offerings offerings)
           ::ooapi/education-specification education-specification)))

(defn wrap-load-entities
  [f ooapi-loader]
  (let [loader (validating-loader ooapi-loader)]
    (fn [{:keys [::ooapi/type] :as request}]
      (if (= "relation" type)
        (f request)
        ;; ensure we don't call f when load-entities returns errors
        (result-> request 
                  (load-entities loader)
                  (f))))))