nybble
/
waterdeep
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Test.hs
View File

@ -112,9 +112,9 @@ printWaterdeep w = do
putStrLn (" Color: " ++ show (p ^. playerFaction . factionColor)) putStrLn (" Color: " ++ show (p ^. playerFaction . factionColor))
putStrLn (" Lord: " ++ (p ^. playerLord . lordName)) putStrLn (" Lord: " ++ (p ^. playerLord . lordName))
putStrLn (" Faction: " ++ (p ^. playerFaction . factionName)) putStrLn (" Faction: " ++ (p ^. playerFaction . factionName))
putStrLn (" Incomplete: " ++ show (p ^. playerIncompleteQuests . to length)) putStrLn (" Incomplete: " ++ show (p ^.. playerIncompleteQuests . traverse . questTitle))
putStrLn (" Complete: " ++ show (p ^. playerCompletedQuests . to length)) putStrLn (" Complete: " ++ show (p ^.. playerCompletedQuests . traverse . questTitle))
putStrLn (" Intrigues: " ++ show (p ^. playerIntrigueCards . to length)) putStrLn (" Intrigues: " ++ show (p ^.. playerIntrigueCards . traverse . intrigueTitle))
putStrLn (" Agent Pool: " ++ show (p ^. playerAgentsInPool)) putStrLn (" Agent Pool: " ++ show (p ^. playerAgentsInPool))
putStrLn "" putStrLn ""