   []
   [turn/start-turn])
 
+(def get-board (comp :board peek))                          ;; TODO - output the current turn instead
+
 (defn play-move
   "On reception of the move command"
   [game-state [x y]]

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


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


    (if-let [next-turn (turn/play-move current x y)]
      (conj game-state next-turn)
      game-state)))

(defn handle-event
  "Callback to dispath the event on the game"
