add status to response body

2016-07-29 15:31:34 +03:00
1 changed files with 3 additions and 1 deletions
@@ -115,9 +115,11 @@
                    ::status    "confirmed"
                    ::message   "Success"}))))
  :handle-ok (fn [{confirmed ::confirmed
-                   message   ::message}]
+                   message   ::message
+                   status    ::status}]
               (generate-string {:success   true
                                 :confirmed confirmed
+                                 :status    status
                                 :message   message}))
  :handle-unprocessable-entity (fn [_]
                                 (let [message (cond