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

18
src/Test.hs
View File

@ -107,15 +107,15 @@ printWaterdeep w = do
putStrLn "" putStrLn ""
forM_ ps $ \p -> do forM_ ps $ \p -> do
putStrLn ((p ^. playerName) ++ "'s State:") putStrLn ((p ^. playerName) ++ "'s State:")
putStrLn (" Score: " ++ show (p ^. playerScore)) putStrLn (" Score: " ++ show (p ^. playerScore))
putStrLn (" Tavern: " ++ show (p ^. playerTavern)) putStrLn (" Tavern: " ++ show (p ^. playerTavern))
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 ""
dummyPrompt :: WaterdeepPrompt a -> IO a dummyPrompt :: WaterdeepPrompt a -> IO a