module Dodge.MagnetBuBu
    where
import Dodge.Magnet
import Dodge.Data.Bullet
import Dodge.Data.Magnet

doMagnetBuBu :: Magnet -> Bullet -> Bullet
doMagnetBuBu mg = case _mgField mg of
    MagnetBuId -> id
    MagnetBuBuCurveAroundField x y -> curveAroundField x y mg