 
 (defn end-game [world gid]
   (http/upload-game gid (get world gid))
+  (spit (str "games/" gid ".game") (get world gid))
   ;(delete-game gid world)
   world
   )


(add-watch world-atom :watch-change (fn [key a old-val new-val]
                                      (spit "world-data" new-val)
                                      (print-world-to-file new-val)
                                      (ws/ws-send-data new-val)
                                      ))


    (if (= next-player current)
      nil
      next-player
      )))

(defn set-next-player [game payload]
  (if (nil? (:player payload))
