Cleanup, work towards unifying spayguns
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user