From d2b81df6b882e702e321b55eba85a8bfab1f77c4 Mon Sep 17 00:00:00 2001
From: Griffin Smith <root@gws.fyi>
Date: Sat, 12 Oct 2019 12:23:41 -0400
Subject: Actually heal the character when they eat food

---
 src/Xanthous/App.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Xanthous')

diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs
index eb2f0cf7ad..ac0a213f08 100644
--- a/src/Xanthous/App.hs
+++ b/src/Xanthous/App.hs
@@ -175,6 +175,8 @@ handleCommand Eat = do
               in before <> fromMaybe Empty (tailMay after)
             let msg = fromMaybe (Messages.lookup ["eat", "eat"])
                       $ edibleItem ^. eatMessage
+            character . characterHitpoints +=
+              edibleItem ^. hitpointsHealed . to fromIntegral
             message msg $ object ["item" A..= item]
   continue
 
-- 
cgit 1.4.1