Normal function, wrap using partial or anonymous function at caller

wrapping-2.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)))))

;; either call via partial
(let [ooapi-loader  (make-ooapi-http-loader gateway-root-url gateway-credentials)
      handle-updated (as-> updated-handler/update-mutation f
                          (updated-handler/wrap-resolver f resolver)
                          (partial load-entities f (validating-loader ooapi-loader)))]
  ..)

;; or anonymous function
(let [ooapi-loader  (make-ooapi-http-loader gateway-root-url gateway-credentials)
      handle-updated (as-> updated-handler/update-mutation f
                          (updated-handler/wrap-resolver f resolver)
                          #(wrap-load-entities f (validating-loader ooapi-loader) %))]