-- | Print summary of every completed game.
printSummaries :: (GameM m g, Show (Move g)) => m ()
printSummaries = numCompleted >>= \n -> mapM_ printSummaryOfGame [1..n]
printSummaries :: (GameM m g, Show (Move g)) => m ()
printSummaries = numCompleted >>= \n -> mapM_ printSummaryOfGame [1..n]
printSummaries = numCompleted >>= \n -> mapM_ printSummaryOfGame [1..n]