diff options
Diffstat (limited to 'src/Sequence/Utils.hs')
| -rw-r--r-- | src/Sequence/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Sequence/Utils.hs b/src/Sequence/Utils.hs index 513cb0b..929189e 100644 --- a/src/Sequence/Utils.hs +++ b/src/Sequence/Utils.hs | |||
| @@ -77,7 +77,7 @@ toDesc :: (MonadState GameState m, MonadIO m) => EntityIdentifier -> m String | |||
| 77 | toDesc ident = do | 77 | toDesc ident = do |
| 78 | name <- toName ident | 78 | name <- toName ident |
| 79 | health <- runMaybeT $ do | 79 | health <- runMaybeT $ do |
| 80 | maxVit <- MaybeT . focusState (gEntities . ix ident) . evalFormula' name =<< (MaybeT . preuse $ gEntities . ix ident . eStats . sMaxVitality) | 80 | maxVit <- MaybeT . focusState (gEntities . ix ident) . evalFormula' [name] =<< (MaybeT . preuse $ gEntities . ix ident . eStats . sMaxVitality) |
| 81 | hDamage <- MaybeT . preuse $ gEntities . ix ident . eStats . sTotalDamage | 81 | hDamage <- MaybeT . preuse $ gEntities . ix ident . eStats . sTotalDamage |
| 82 | fDamage <- MaybeT . preuse $ gEntities . ix ident . eStats . sFatigue | 82 | fDamage <- MaybeT . preuse $ gEntities . ix ident . eStats . sFatigue |
| 83 | return $ (maxVit - hDamage, maxVit - fDamage) | 83 | return $ (maxVit - hDamage, maxVit - fDamage) |