     (if-let [next-turn (turn/play-move current x y)]
       (conj game-state next-turn)
       game-state)))
-
-(defn on-undo
-  "Remove the last game if there is enough game played"
-  [game-state]
-  (if (< 1 (count game-state))
-    (pop game-state)
-    game-state))
-
-(def get-board (comp :board peek))
 
 (defn handle-event
   "Callback to dispath the event on the game"

  []
  [turn/start-turn])

(defn play-move
  "On reception of the move command"
  [game-state [x y]]

    :else (play-move game-state event)
    ))

(defn on-undo
  "Remove the last game if there is enough game played"
  [game-state]
  (if (< 1 (count game-state))
    (pop game-state)
    game-state))



;; ---- TODO - remove (only there for the tests, but could be done better)

