From e19d46026c8855521c620cab94e5861ad4fbc420 Mon Sep 17 00:00:00 2001 From: Wilker Lucio Date: Wed, 9 Nov 2016 21:27:47 -0300 Subject: [PATCH] rename collect-response to augment-map and added docs for it --- src/untangled/server/impl/components/handler.clj | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/untangled/server/impl/components/handler.clj b/src/untangled/server/impl/components/handler.clj index 27f0212..78ced6e 100644 --- a/src/untangled/server/impl/components/handler.clj +++ b/src/untangled/server/impl/components/handler.clj @@ -82,8 +82,11 @@ (assoc acc k v))) {} resp)) -(defn collect-response [data] - (->> (keep #(some-> (second %) meta :untangled.server.core/augment-response) data) +(defn augment-map + "Parses response the top level values processing the augmented response. This function + expects the parser mutation results to be raised (use the raise-response function)." + [response] + (->> (keep #(some-> (second %) meta :untangled.server.core/augment-response) response) (reduce (fn [response f] (f response)) {}))) (defn api @@ -95,7 +98,7 @@ [{:keys [transit-params parser env] :as req}] (let [parse-result (try (raise-response (parser env transit-params)) (catch Exception e e))] (if (valid-response? parse-result) - (merge {:status 200 :body parse-result} (collect-response parse-result)) + (merge {:status 200 :body parse-result} (augment-map parse-result)) (process-errors parse-result)))) (defn generate-response