Slight cleanup

2021-09-03 10:58:06 +01:00
parent 1bbeb926a5
commit 083000c103
9 changed files with 30 additions and 21 deletions
@@ -295,8 +295,8 @@ withRandomDirI acc f it cr w = f it (cr & crDir +~ a) $ set randGen g w
 withOldDir
    :: Float    -- ^ The fraction of the old direction
    -> ChainEffect
-withOldDir aFrac eff item cr w 
-    = eff item (cr & crDir %~ tweenAngles aFrac (_crOldDir cr)) w
+withOldDir aFrac eff item cr
+    = eff item (cr & crDir %~ tweenAngles aFrac (_crOldDir cr))
 {- | Apply the effect to a translated creature. -}
 withRandomOffsetI
    :: Float    -- ^ Max possible translate