Emi
/
maleghast-engine
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleanup spare trace

This commit is contained in:
Emi Simpson 2023-12-06 16:15:38 -05:00
parent 1f65275d5b
commit fd88082d77
Signed by: Emi
GPG Key ID: A12F2C2FFDC3D847
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/GameLogic.hs
View File

@ -27,7 +27,6 @@ import Numeric.Natural (Natural)
import Lens.Micro
import Safe (atMay)
import Debug.Trace
import Mechanics (universalModifiers, globalHooks)
import Data.Monoid (Any(getAny), getSum)
@ -278,7 +277,7 @@ applyEffect (InflictDamage damageType incomingAmount recipient) board = continue
netDamage
| totalReduction >= incomingAmount' = 0
| otherwise = fromIntegral $ incomingAmount' - totalReduction
board' = trace ("iA': " ++ show incomingAmount' ++ " | aR: " ++ show armorReduction ++ " | r: " ++ show recipient) $ board
board' = board
& ixCharacter recipient %~ clearUpToNTokens Health netDamage
& if incomingAmount' > armorReduction
then ixCharacter recipient %~ removeTokenInCategory VitalVulnr