12 lines
280 B
Haskell
12 lines
280 B
Haskell
module Dodge.MagnetBuBu
|
|
where
|
|
import Dodge.Magnet
|
|
import Dodge.Data.Bullet
|
|
import Dodge.Data.Magnet
|
|
|
|
doMagnetBuBu :: MagnetBuBu -> Magnet -> Bullet -> Bullet
|
|
doMagnetBuBu mbb = case mbb of
|
|
MagnetBuId -> const id
|
|
MagnetBuBuCurveAroundField x y -> curveAroundField x y
|
|
|