From 09a34c119b304f175fad7ceb05e93313f49b5acd Mon Sep 17 00:00:00 2001 From: Jesse McDonald Date: Wed, 2 Apr 2014 19:37:26 -0500 Subject: [PATCH] show card titles instead of number of cards --- src/Test.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/Test.hs b/src/Test.hs index d53a656..e3eab55 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -107,15 +107,15 @@ printWaterdeep w = do putStrLn "" forM_ ps $ \p -> do putStrLn ((p ^. playerName) ++ "'s State:") - putStrLn (" Score: " ++ show (p ^. playerScore)) - putStrLn (" Tavern: " ++ show (p ^. playerTavern)) - putStrLn (" Color: " ++ show (p ^. playerFaction . factionColor)) - putStrLn (" Lord: " ++ (p ^. playerLord . lordName)) - putStrLn (" Faction: " ++ (p ^. playerFaction . factionName)) - putStrLn (" Incomplete: " ++ show (p ^. playerIncompleteQuests . to length)) - putStrLn (" Complete: " ++ show (p ^. playerCompletedQuests . to length)) - putStrLn (" Intrigues: " ++ show (p ^. playerIntrigueCards . to length)) - putStrLn (" Agent Pool: " ++ show (p ^. playerAgentsInPool)) + putStrLn (" Score: " ++ show (p ^. playerScore)) + putStrLn (" Tavern: " ++ show (p ^. playerTavern)) + putStrLn (" Color: " ++ show (p ^. playerFaction . factionColor)) + putStrLn (" Lord: " ++ (p ^. playerLord . lordName)) + putStrLn (" Faction: " ++ (p ^. playerFaction . factionName)) + putStrLn (" Incomplete: " ++ show (p ^.. playerIncompleteQuests . traverse . questTitle)) + putStrLn (" Complete: " ++ show (p ^.. playerCompletedQuests . traverse . questTitle)) + putStrLn (" Intrigues: " ++ show (p ^.. playerIntrigueCards . traverse . intrigueTitle)) + putStrLn (" Agent Pool: " ++ show (p ^. playerAgentsInPool)) putStrLn "" dummyPrompt :: WaterdeepPrompt a -> IO a