 (def teams (atom {}))
 (def votes (atom {}))
 (def voter-ips (atom #{}))
+(def session-atom (atom {}))
 
 (defn toint [numstr] (Integer/parseInt numstr))
 

           #_(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))))
  (route/resources "/")
  (route/not-found "Not Found"))

(def app
  (-> (handler/site app-routes)
      wrap-session))

;; TIME USED: 3.5 + 1h

            [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))
