Cleanup item combinations, prevent creation of identical items

2022-06-08 21:20:52 +01:00
parent ebf4594bea
commit 91f426e56e
5 changed files with 33 additions and 83 deletions
@@ -52,3 +52,6 @@ moduleModification imt = case imt of
      where
        p = fromMaybe (_crPos cr) $ it ^? itTargeting . tgPos . _Just
        a = argV (mouseWorldPos w -.- p)
+
+applyModules :: Item -> Item
+applyModules it = foldr moduleModification it (_iyModules (_itType it))