about summary refs log tree commit diff
path: root/src/Xanthous/Game
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-11-16T02·20-0500
committerGriffin Smith <root@gws.fyi>2019-11-16T02·20-0500
commit7b90b02049f891f752fff7e0e228511077bbcb84 (patch)
tree306b998143a9b19a6ea496a8becc86a4ce0303ae /src/Xanthous/Game
parent87fedcb6c9bc251a5a23a632ccf985b674b84bc7 (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.hs2
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