            #_(POST "/start-brainstorming" [] (str (compare-and-set! state :oldstate :newstate))) ;; CURRENTLY NOT NEEDED
            (POST "/start-voting" [] (str (compare-and-set! state :brainstorming :voting)))
            (POST "/show-voting-results" [] (str (compare-and-set! state :voting :voting-finished))))
+  (GET "/reset" [sure]
+       (if sure
+         (do
+           (reset-state)
+           "Done resetting the state!")
+         (page "Reset"
+               [:p "Do you really want to reset the state, teams, votes? "
+                [:a {:href "/reset?sure=yes"} "Sure, reset it all!"]])))
   (route/resources "/")
   (route/not-found "Not Found"))
 
 (def app
   (-> (handler/site app-routes)
-      wrap-session))
+      (wrap-session {:store (memory-store session-atom)})))
 
-;; TIME USED: 3.5 + 1h
+;; TIME USED: (time-in-hrs + 3.5 1.5 1)

(def teams (atom {}))
(def votes (atom {}))
(def voter-ips (atom #{}))

(defn toint [numstr] (Integer/parseInt numstr))


            [hiccup.page :refer [html5]]
            [ring.util.response :refer [redirect]]
            [ring.middleware.session :refer [wrap-session]]
            [ring.middleware.session.memory :refer [memory-store]]
            [clojure.pprint]))

(def state (atom :not-started))
