Cleanup, work towards unifying spayguns

This commit is contained in:
2022-03-03 10:34:56 +00:00
parent 163d0c584a
commit 08389ad4e0
11 changed files with 118 additions and 91 deletions
+1 -1
View File
@@ -91,7 +91,7 @@ applyModules ms it = foldr f (it & itModules .~ ms) ms
-- g ims (ims',s) = map (second (s++)) $ combineModules ims ims'
combineModules :: M.Map ModuleSlot ItemModule
-> M.Map ModuleSlot ItemModule
-> M.Map ModuleSlot ItemModule
-> ([String],M.Map ModuleSlot ItemModule)
combineModules = mergeA
(traverseMaybeMissing f)