 
 (defn logout [_]
   {:status  200
-   :headers {"Content-Type" "text/plain"}
+   :headers {"Content-Type" "application/json"}
    :body    ""
    :session nil})
 

(defn- update-email [user-id old-email new-email]
  (if (sql-primitive (call-sql "email_taken" new-email user-id))
    {:status  200
     :headers {"Content-Type" "text/plain"}
     :body    (str "An account with the email " new-email " already exists.")}
    (do
      (call-sql "set_user_email" old-email new-email)
      {:status  200
       :headers {"Content-Type" "text/plain"}
       :body    ""
       :session {:userName new-email}})))


                                  email email timestamp)]
        (send-mail [email] nil nil "Welcome to CEO!" email-msg "text/plain")
        {:status  200
         :headers {"Content-Type" "application/json"}
         :body    ""
         :session {:userId   user-id
                   :userName email
