Cleanup

src/Dodge/Prop/Gib.hs

@@ -33,7 +33,7 @@ aGib =
         }
 
 addCrGibs :: Creature -> World -> World
-addCrGibs cr = case damageDirection $ _csDamage $ _crState cr of
+addCrGibs cr = case damageDirection $ _crDamage cr of
     Nothing ->
             addGibAt 25 (_skinHead skin) cpos
             . addGibsAt 3 7 (_skinLower skin) cpos

src/Dodge/Prop/Moving.hs

@@ -22,7 +22,7 @@ fallSmallBounceDamage pr w =
         | otherwise = id
     dodamage' cr
         | dist (_crPos cr) p < crRad (cr ^. crType) + 5 =
-            cr & crState . csDamage
+            cr & crDamage
                 .:~ Crushing (floor . (* 10) . max 0 . subtract 5 . abs $ _prVelZ pr) v
                     --(p -.- v) p (p +.+ v)
         | otherwise = cr