Define shape datatype

src/Dodge/Item/Weapon/Bezier.hs

@@ -59,7 +59,7 @@ shootBezier targetp cr w = w & particles %~ (theBullet :)
         startp 
         (controlp +.+ randPos) 
         (targetp +.+ randPos')
-        (destroyOnImpact bulHitCr bulHitWall' bulHitFF') 
+        (destroyOnImpact bulHitCr bulHitWall bulHitFF') 
         5
     controlp = mouseWorldPos w
     cid = _crID cr

src/Dodge/Item/Weapon/Bullet.hs

@@ -8,14 +8,14 @@ import Geometry.Data
 basicBullet :: Ammo
 basicBullet = BulletAmmo
     { _amString = "BULLET"
-    , _amBulEff = destroyOnImpact bulHitCr bulHitWall' bulHitFF'
+    , _amBulEff = destroyOnImpact bulHitCr bulHitWall bulHitFF'
     , _amBulWth = 2
     , _amBulVel = V2 50 0
     }
 ltBullet :: Ammo
 ltBullet = BulletAmmo
     { _amString = "LTBULLET"
-    , _amBulEff = destroyOnImpact bulHitCr bulHitWall' bulHitFF'
+    , _amBulEff = destroyOnImpact bulHitCr bulHitWall bulHitFF'
     , _amBulWth = 2
     , _amBulVel = V2 40 0
     }