diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-14 03:26:18 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-14 03:26:18 +0200 |
| commit | d196ace4100ec5f8cfb0fad265d3baa44873fc9d (patch) | |
| tree | 6f6714769e2d539b70aef2f06ea0d7e16e46855e /src/Sequence/Utils.hs | |
| parent | 0c5fe56414a323f49d7b086c0a64a216443a22bb (diff) | |
| download | 2017-01-16_17:13:37-d196ace4100ec5f8cfb0fad265d3baa44873fc9d.tar 2017-01-16_17:13:37-d196ace4100ec5f8cfb0fad265d3baa44873fc9d.tar.gz 2017-01-16_17:13:37-d196ace4100ec5f8cfb0fad265d3baa44873fc9d.tar.bz2 2017-01-16_17:13:37-d196ace4100ec5f8cfb0fad265d3baa44873fc9d.tar.xz 2017-01-16_17:13:37-d196ace4100ec5f8cfb0fad265d3baa44873fc9d.zip | |
fixed questions
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) |