Commit before trying to remove reified impulses

src/Dodge/Creature/Action/Blink.hs

@@ -54,10 +54,7 @@ blinkDistortions sp ep = cWorld . lWorld . distortions .++~ distortionBulge
 {- | Teleport a creature to the mouse position.
 Can go through walls, if ending up in wall does big damage.
 -}
-unsafeBlinkAction ::
-    Creature ->
-    World ->
-    World
+unsafeBlinkAction :: Creature -> World -> World
 unsafeBlinkAction cr w
     | success =
         soundMultiFrom [TeleSound 0, TeleSound 1] mwp teleS Nothing
@@ -86,10 +83,7 @@ blinkShockwave ::
 blinkShockwave i p = makeShockwaveAt [i] (p `v2z` 20) 60 1 2 cyan
 
 -- | Like a blink action, but no ingoing distortion
-blinkActionFail ::
-    Creature ->
-    World ->
-    World
+blinkActionFail :: Creature -> World -> World
 blinkActionFail cr w =
     w
         & soundMultiFrom [TeleSound 0, TeleSound 1] p3 teleS Nothing