           (call-sql "update_password" stored-email password))
         (call-sql "set_mailing_list" user-id on-mailing-list?)
         {:status  200
-         :headers {"Content-Type" "text/plain"}
+         :headers {"Content-Type" "application/json"}
          :body    ""}))))
 
 (defn get-password-reset-key [request]

                                  email (get-base-url) email reset-key)]
            (send-mail [email] nil nil "Password reset on CEO" email-msg "text/plain")
            {:status  200
             :headers {"Content-Type" "text/plain"}
             :body    ""})
          {:status  200
           :headers {"Content-Type" "text/plain"}
           :body    "Failed to create a reset key. Please try again later"}))
      {:status  200
       :headers {"Content-Type" "text/plain"}
       :body    "There is no user with that email address."})))

(defn- get-reset-password-errors [password password-confirmation]

        on-mailing-list?      (boolean (:onMailingList params))]
    (if-let [error-msg (get-update-account-errors stored-email email password password-confirmation current-password)]
      {:status  200
       :headers {"Content-Type" "application/json"}
       :body    error-msg}
      (do
        (when (and (not (str/blank? email)) (not= email stored-email))
