From 7b90b02049f891f752fff7e0e228511077bbcb84 Mon Sep 17 00:00:00 2001
From: Griffin Smith <root@gws.fyi>
Date: Fri, 15 Nov 2019 21:20:01 -0500
Subject: Recover character hitpoints over time

Wrap hitpoints in a newtype, and recover character hitpoints over time
---
 src/Xanthous/Game/Draw.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Xanthous/Game/Draw.hs')

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
-- 
cgit 1.4.1