More strictifiiiying

src/Dodge/WorldEvent.hs

@@ -36,7 +36,7 @@ createBarrelSpark pos dir maycid time colid w
     spark = Bul'  
         { _ptDraw = drawBul
         , _ptUpdate' = mvGenBullet
-        , _btVel' = rotateV dir (5,0)
+        , _btVel' = rotateV dir (V2 5 0)
         , _btColor' = numColor colid
         , _btTrail' = [pos]
         , _btPassThrough' = maycid
@@ -45,7 +45,7 @@ createBarrelSpark pos dir maycid time colid w
         , _btHitEffect' = destroyOnImpact sparkEff noEff noEff
         }
     x = fst $ randomR (0,20) $ _randGen w
-    pos' = pos +.+ rotateV dir (x,0)
+    pos' = pos +.+ rotateV dir (V2 x 0)
     sparkEff bt p cr = over (creatures . ix (_crID cr) . crState . crDamage)
                             ((:) $ SparkDam 1 sp p ep)
       where sp = head (_btTrail' bt)