maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Recover character hitpoints over time

Browse source 
Wrap hitpoints in a newtype, and recover character hitpoints over time
This commit is contained in:
Griffin Smith 2019-11-15 21:20:01 -05:00
parent 87fedcb6c9
commit 7b90b02049
6 changed files with 44 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Xanthous/Game/Draw.hs
View file

@ -96,7 +96,7 @@ drawCharacterInfo ch = txt " " <+> charName <+> charHitpoints
= emptyWidget
charHitpoints
= txt "Hitpoints: "
<+> txt (tshow $ ch ^. characterHitpoints)
<+> txt (tshow $ let Hitpoints hp = characterHitpoints ch in hp)
drawGame :: GameState -> [Widget Name]
drawGame game