Randomize spark movement

src/Dodge/Creature/State.hs

@@ -43,11 +43,7 @@ import Shape
 import ShapePicture
 
 -- this can almost certainly be made more efficient
-foldCr ::
-    [Creature -> World -> World] ->
-    Creature ->
-    World ->
-    World
+foldCr :: [Creature -> World -> World] -> Creature -> World -> World
 foldCr xs cr w = foldl' f w xs
   where
     f w' g = case w' ^? cWorld . lWorld . creatures . ix (_crID cr) of
@@ -256,7 +252,6 @@ trySynthBullet loc w = fromMaybe w $ do
   where
     itm = loc ^. locLDT . ldtValue . _1
     
-
 updateHeldRootItem :: Creature -> World -> World
 updateHeldRootItem cr = fromMaybe id $ do
     invid <- cr ^? crManipulation . manObject . imRootSelectedItem