diff --git a/src/Dodge/Creature/Action.hs b/src/Dodge/Creature/Action.hs
index 7236cf630..c419384fe 100644
--- a/src/Dodge/Creature/Action.hs
+++ b/src/Dodge/Creature/Action.hs
@@ -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 =