         new-actions (conj actions current-action)
         current-game (state/get-state :game-data)
         updated-game (assoc current-game "board" (or (get data "p2-focused-board") (get data "board")))]
-    (println updated-game)
     (state/set-state :game-data updated-game)
     (state/set-state :current-actions new-actions)
     (state/set-state :processing-action nil)

(defn- game-deployed
  "After the game was deployed"
  [data]
  (println (state/get-state :game-data))
  (println "--game deployed")
  (println data)
  (state/set-state :game-data data)
  (state/set-state :current-actions nil)
  (state/set-state :processing-action nil)
    )

(defn- deploy-game
  "Deploys a game"

(defn- normalize-board
  "Uses p2-focused-board if present"
  [data]
  (if (data :p2-focused-board)
    (-> data
        (assoc :board (data :p2-focused-board))
