Cleanup

2022-06-19 22:46:50 +01:00
parent b3c6944693
commit 8d457033a2
17 changed files with 33 additions and 33 deletions
@@ -211,7 +211,7 @@ deadRot :: Creature -> Shape -> Shape
 deadRot cr = overPosSH (Q.rotateToZ d)
  where
    d = maybe (V3 1 0 0) (addZ 0 . unitVectorAtAngle . subtract (_crDir cr+pi))
-        (damageDirection . _crDamage $ _crState cr)
+        (damageDirection . _csDamage $ _crState cr)

 scalp :: Creature -> Shape
 {-# INLINE scalp #-}