printSummary :: (GameM m g, Show (Move g)) => m ()
printSummary = numCompleted >>= printSummaryOfGame
printSummary :: (GameM m g, Show (Move g)) => m ()
printSummary = numCompleted >>= printSummaryOfGame
printSummary = numCompleted >>= printSummaryOfGame