Cleanup terminal display

2022-06-03 09:20:03 +01:00
parent 28a002eb08
commit 5ff2fb4910
24 changed files with 198 additions and 180 deletions
@@ -93,6 +93,6 @@ followImpulse cr w imp = case imp of
    posFromID cid' = _crPos $ _creatures w IM.! cid'
    rr a = randomR (-a,a) $ _randGen w
    hitCr i = (creatures . ix i . crState . crDamage 
-        .:~ Damage Blunt 100 cpos (posFromID i) (posFromID i) NoDamageEffect
+        .:~ Damage BLUNT 100 cpos (posFromID i) (posFromID i) NoDamageEffect
        )
        . soundStart (CrSound cid) cpos hitS Nothing