Cleanup

2022-06-08 22:14:50 +01:00
parent b90e8a2118
commit 970858e129
9 changed files with 41 additions and 40 deletions
@@ -86,6 +86,7 @@ combineTwoModuleMaps = mergeA
    g _ md EMPTYMODULE = ([],md)
    g _ md2 md1 = ([rm "REPLACES" md1 ++ rm " WITH" md2],md2)
    rm str md = str ++ " "++fullModuleName md
+-- g above could be a monoid of some description...

 fullModuleName :: ItemModuleType -> String
 fullModuleName = fromMaybe "EMPTYMODULE" . moduleName