Actually heal the character when they eat food

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs
index eb2f0cf7ad83..ac0a213f08a1 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