Replace some foldr with foldl'

src/Dodge/Combine/Module.hs

@@ -1,9 +1,9 @@
 module Dodge.Combine.Module where
 
+import Data.Foldable
 import Dodge.Item.Targeting
 import Dodge.Data.Beam
 import Dodge.Data.Item
---import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Tesla
 import Geometry
 import LensHelp
@@ -53,4 +53,4 @@ moduleModification imt = case imt of
 --        a = argV (mouseWorldPos w -.- p)
 
 applyModules :: Item -> Item
-applyModules it = foldr moduleModification it (_iyModules (_itType it))
+applyModules it = foldl' (flip moduleModification) it (it ^. itType . iyModules)