Validation-in-pipeline

validation-in-pipeline.clj

(defn bad-request
  "Generate an HTTP response map representing a Bad Request."
  [body]
  (assoc (response body) :status 400))

(defn ok
  "Generate an HTTP response map representing a successful request."
  [body]
  (assoc (response body) :status 200))

(defn post-notes-handler
  [req-body]
  (let [[note error] (validate-note req-body)]
    (if error
      (bad-request error)
      (ok note))))