Cleanup UseEquip constructor

src/Dodge/Creature/State.hs

@@ -26,7 +26,6 @@ import Dodge.Item.HeldOffset
 import Dodge.LightSource
 import Dodge.Prop.Gib
 import Dodge.SoundLogic
---import Dodge.WorldEvent.Flash
 import Dodge.Zoning.Creature
 import FoldableHelp
 import Geometry
@@ -72,16 +71,14 @@ stateUpdate f =
         ]
 
 checkDeath :: Creature -> World -> World
-checkDeath cr w
+checkDeath cr
     | _crHP cr > 0 =
-        w
-            & cWorld . lWorld . creatures . ix (_crID cr) . crState . csDamage .~ []
+        cWorld . lWorld . creatures . ix (_crID cr) . crState . csDamage .~ []
     | otherwise =
-        w
-            & dropByState cr
-            & removecr
-            & stopSoundFrom (CrWeaponSound (_crID cr) 0)
-            & corpseOrGib cr
+        dropByState cr
+            . removecr
+            . stopSoundFrom (CrWeaponSound (_crID cr) 0)
+            . corpseOrGib cr
   where
     removecr
         | _crID cr == 0 =