diff options
author | Griffin Smith <root@gws.fyi> | 2019-11-16T02·20-0500 |
---|---|---|
committer | Griffin Smith <root@gws.fyi> | 2019-11-16T02·20-0500 |
commit | 7b90b02049f891f752fff7e0e228511077bbcb84 (patch) | |
tree | 306b998143a9b19a6ea496a8becc86a4ce0303ae /src/Xanthous/Game | |
parent | 87fedcb6c9bc251a5a23a632ccf985b674b84bc7 (diff) |
Recover character hitpoints over time
Wrap hitpoints in a newtype, and recover character hitpoints over time
Diffstat (limited to 'src/Xanthous/Game')
-rw-r--r-- | src/Xanthous/Game/Draw.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/Game/Draw.hs b/src/Xanthous/Game/Draw.hs index b7d7a76956ed..ffbf30cca864 100644 --- a/src/Xanthous/Game/Draw.hs +++ b/src/Xanthous/Game/Draw.hs @@ -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 |