      (if (ok? context)
        (let [usernames (get-in context [:request :session :usernames])
              new-user (get-in context [:response :body :username])]
-         (assoc-in context [:response :session] (extend {:usernames (conj usernames new-user)})))
+         (assoc-in context [:response :session] (extend-session {:usernames (conj usernames new-user)})))
        context))})
 
 (defn logins [handler] [(body-params/body-params)

   (fn [context]
     (if (ok? context)
       (let [session (or (get-in context [:request :session]) {})]
         (assoc-in context [:response :session] (extend session)))
       context))})

(def add-user-to-session

;      ^:interceptors [(body-params/body-params) http/html-body]
;      ["/about" {:get about-page}]]]])

(def ^:private session-key (DatatypeConverter/parseHexBinary (:subticket-secret-key env)))
;; Consumed by subticket.server/create-server
;; See http/default-interceptors for additional options you can configure
(def service {:env :prod
