     (GET "/" [] (home-page api-key))))
 
 (defn update-conference [id conference db]
-  (let [update-result (db/update-conference-by-id id (sanatize conference) db)]
+  (let [update-result (db/update-conference-by-id id (sanitize conference) db)]
     (utf-json-response update-result)))
 
 (defn add-attendance [conference-id request db]

    (escape-html x)
    x))

(defn- sanatize [m]
  (walk/postwalk escape-string m))

(s/defn add-conference [conference :- schemas/Conference db]
  (let [add-result (db/add-conference (sanatize conference) db)
        id         (:_id add-result)]
    (created (str "/api/conferences/" id) add-result)))


(def parse-rating (coerce/coercer schemas/Rating coerce/json-coercion-matcher))

(defn add-rating [conference-id request db]
  (let [complete (assoc (sanitize (:body request))
                   :conference-id conference-id
                   :user (user-identity request))
        rating (parse-rating complete)
