Further strictifying

2021-07-30 00:23:02 +02:00
parent bd8ef3f416
commit 2d8b27746c
33 changed files with 228 additions and 211 deletions
@@ -39,7 +39,7 @@ aCurveBulAt
 aCurveBulAt maycid col pos control targ hiteff width = Bul'
    { _ptDraw = drawBul
    , _ptUpdate' = \w -> mvGenBullet w . setVel
-    , _btVel' = (0,0)
+    , _btVel' = (V2 0 0)
    , _btColor' = col
    , _btTrail' = [pos]
    , _btPassThrough' = maycid