More strictifiiiying

2021-07-30 01:25:11 +02:00
parent 2d8b27746c
commit 7b7fd302d8
37 changed files with 459 additions and 448 deletions
@@ -3,17 +3,19 @@ module Dodge.Item.Weapon.Bullet
 import Dodge.Data
 import Dodge.WorldEvent.HitEffect
 import Dodge.Particle.Bullet.HitEffect
+
+import Geometry.Data
 basicBullet :: Ammo
 basicBullet = BulletAmmo
    { _amString = "BULLET"
    , _amBulEff = destroyOnImpact bulHitCr bulHitWall' bulHitFF'
    , _amBulWth = 2
-    , _amBulVel = (30,0)
+    , _amBulVel = (V2 30 0)
    }
 hvBullet :: Ammo
 hvBullet = BulletAmmo
    { _amString = "HVBULLET"
    , _amBulEff = penWalls hvBulHitCr hvBulHitWall' bulHitFF'
    , _amBulWth = 6
-    , _amBulVel = (80,0)
+    , _amBulVel = (V2 80 0)
    }