show card titles instead of number of cards

This commit is contained in:
Jesse D. McDonald 2014-04-02 19:37:26 -05:00
parent fdca9de867
commit 09a34c119b
1 changed files with 9 additions and 9 deletions

View File

@ -112,9 +112,9 @@ printWaterdeep w = do
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 (" 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 ""