git.iko.soy/elk
on master help sign in
cosmetic: make module' function a bit clearer
6e59427Evan Czaplicki
compiler/Transform/Canonicalize.hs+3−2
compare with master
unifiedsplit
@@ -34,8 +34,9 @@ module' :: Module.Interfaces -> Module.ValidModule -> Either [Doc] Module.Canoni
34module' interfaces modul =
34module' interfaces modul =
35 filterImports <$> modul'
35 filterImports <$> modul'
36 where
36 where
37− canonicalizer = moduleHelp interfaces modul
37+ (modul', usedModules) =
38− (modul', usedModules) = runState (runErrorT canonicalizer) Set.empty
38+ runState (runErrorT (moduleHelp interfaces modul)) Set.empty
39+
39 filterImports m =
40 filterImports m =
40 let used (name,_) = Set.member name usedModules
41 let used (name,_) = Set.member name usedModules
41 in m { Module.imports = filter used (Module.imports m) }
42 in m { Module.imports = filter used (Module.imports m) }