Cleanup

src/Dodge/Prop/Gib.hs

@@ -1,7 +1,9 @@
-module Dodge.Prop.Gib where
+module Dodge.Prop.Gib (
+    addCrGibs,
+) where
 
-import Control.Monad
 import Color
+import Control.Monad
 import Data.Foldable
 import Data.List (zip4)
 import Dodge.Base
@@ -30,17 +32,15 @@ aGib =
         }
 
 addCrGibs :: Creature -> World -> World
-addCrGibs cr w = case damageDirection $ _csDamage $ _crState cr of
+addCrGibs cr = case damageDirection $ _csDamage $ _crState cr of
     Nothing ->
-        w
-            & addGibAt 25 (_skinHead skin) cpos
-            & addGibsAt 3 7 (_skinLower skin) cpos
-            & addGibsAt 13 20 (_skinUpper skin) cpos
+            addGibAt 25 (_skinHead skin) cpos
+            . addGibsAt 3 7 (_skinLower skin) cpos
+            . addGibsAt 13 20 (_skinUpper skin) cpos
     Just d ->
-        w
-            & addGibsAtDir d 3 7 (_skinLower skin) cpos
-            & addGibsAtDir d 13 20 (_skinUpper skin) cpos
-            & addGibAtDir d 25 (_skinHead skin) cpos
+            addGibsAtDir d 3 7 (_skinLower skin) cpos
+            . addGibsAtDir d 13 20 (_skinUpper skin) cpos
+            . addGibAtDir d 25 (_skinHead skin) cpos
   where
     skin = _crType cr -- this should be cleaned up
     cpos = _crPos cr