Remove ptCrIgnore

src/Dodge/Particle/Bullet/Update.hs

@@ -16,12 +16,11 @@ mvBullet :: World -> Particle -> (World, Maybe Particle)
 mvBullet w bt' 
     | t <= 0 || magV (_ptVel bt) < 1 = (w,Nothing)
     | otherwise = second (fmap dodrag) $ 
-        hiteff bt (thingsHitExceptCr mcr p (p +.+ vel) w) w
+        hiteff bt (thingsHit p (p +.+ vel) w) w
   where
     bt = foldr (\mg b -> _mgField mg mg b) bt' $ _magnets w
     dodrag = ptVel .*.*~ drag
     drag = _btDrag bt
-    mcr     = _ptCrIgnore bt
     (p:_)   = _ptTrail bt
     vel     = _ptVel bt
     hiteff  = _ptHitEff bt