--
-- * Printing game execution state
--

-- | Print the current location in the game tree.
printLocation :: (GameM m g, Show (Move g), Show (TreeType g (State g) (Move g))) => m ()
printLocation = do 
  l <- location
  printStrLn (show l)

-- | Print the moves from the current location.
printLocation :: (GameM m g, Show (Move g), Show (TreeType g (State g) (Move g))) => m ()
printLocation = do 
  l <- location
  printStrLn (show l)

-- | Print the moves from the current location.
printLocation = do 
  l <- location
  printStrLn (show l)

-- | Print the moves from the current location.