about summary refs log tree commit diff
path: root/src/Xanthous
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xanthous')
-rw-r--r--src/Xanthous/App.hs2
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