Cleanup

2022-06-05 10:00:35 +01:00
parent e84e5bad01
commit 7398791194
1 changed files with 7 additions and 10 deletions
@@ -177,16 +177,13 @@ blinkActionFail cr w = w
    p3 = maybe p1 (mvPointTowardAtSpeed r cpos . fst) p2

 {- | Teleport a creature to the mouse position -}
-blinkAction 
-    :: Creature
-    -> World 
-    -> World
-blinkAction cr w 
-    = soundMultiFrom [TeleSound 0,TeleSound 1] p3 teleS Nothing
-    . over distortions (distortionBulge ++)
-    . set (creatures . ix cid . crPos) p3
-    . blinkShockwave cid p3
-    $ inverseShockwaveAt cpos 40 2 2 w
+blinkAction :: Creature -> World -> World
+blinkAction cr w = w
+    & soundMultiFrom [TeleSound 0,TeleSound 1] p3 teleS Nothing
+    & distortions .++~ distortionBulge 
+    & creatures . ix cid . crPos .~ p3
+    & blinkShockwave cid p3
+    & inverseShockwaveAt cpos 40 2 2
  where
    distR = 120
    distortionBulge =