Hlinting

2021-04-27 11:45:43 +02:00
parent f8351fb150
commit 64b5b9e2a5
34 changed files with 974 additions and 761 deletions
@@ -41,7 +41,7 @@ import qualified Data.IntMap.Strict as IM

 createBarrelSpark :: Int -> Int -> Point2 -> Float -> Maybe Int -> World -> World
 createBarrelSpark time colid pos dir maycid w = over worldEvents 
-                                        ((.) $ ( over particles' ((:) spark) 
+                                        ((.) $ ( over particles ((:) spark) 
                                               . sparkFlashAt pos')
                                        ) w
    where spark = Bul'  { _ptDraw = drawBul