Replace some foldr with foldl'

2022-08-23 15:40:15 +01:00
parent 12ce2365c2
commit 9f00e67298
11 changed files with 35 additions and 30 deletions
@@ -4,8 +4,8 @@ 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
+doMagnetBuBu :: Magnet -> Bullet -> Bullet
+doMagnetBuBu mg = case _mgField mg of
+    MagnetBuId -> id
+    MagnetBuBuCurveAroundField x y -> curveAroundField x y mg