-- | Print the transcript of the current game iteration, or if the game
--   has just finished, print the transcript of the last iteration.
printTranscript :: (GameM m g, Show (Move g)) => m ()
printTranscript = do
    new <- isNewGame
    n   <- gameNumber
    printTranscriptOfGame (if new then n-1 else n)

-- | Print transcript of the given game.
printTranscript :: (GameM m g, Show (Move g)) => m ()
printTranscript = do
    new <- isNewGame
    n   <- gameNumber
    printTranscriptOfGame (if new then n-1 else n)

-- | Print transcript of the given game.
printTranscript = do
    new <- isNewGame
    n   <- gameNumber
    printTranscriptOfGame (if new then n-1 else n)

-- | Print transcript of the given game.