Reify block drawing

src/Dodge/Bullet.hs

@@ -2,6 +2,7 @@ module Dodge.Bullet
     ( updateBullet
     , useAmmoParams
     ) where
+import Dodge.MagnetBuBu
 import qualified ListHelp as List
 import Dodge.EnergyBall
 import Dodge.Creature.Test
@@ -59,7 +60,7 @@ mvBullet x w bt'
         partspawn <- bulletSpawn bt'
         return $ partspawn p w'
     hitstream = thingsHit p (p +.+ vel) w
-    bt = foldr (\mg b -> _mgField mg mg b) bt' (_magnets w)
+    bt = foldr (\mg b -> doMagnetBuBu (_mgField mg) mg b) bt' (_magnets w)
         & buState .~ NormalBulletState
     dodrag = case _buTrajectory bt of
         BasicBulletTrajectory -> buVel .*.*~ drag