 
 (defn response
   "Construct Ring response for success or other status."
-  ([body] (response HttpServletResponse/SC_OK body))
-  ([status body] {:status status :body body}))
+  ([body] (r/response body))
+  ([status body] (->
+                   (response body)
+                   (r/status status))))
 
 (defn pretty-print
   "Pretty-prints the supplied object to a returned string."

  "Prints the object more briefly, with limits on level and length."
  [object]
  (binding [*print-level* 4
                     *print-length* 5] (pretty-print object)))


    (java.util UUID)
    (javax.servlet.http HttpServletResponse))
  (:require
    [ring.util.response :as r]
    [clojure.pprint :as pprint]))

(defn new-uuid
