@@ -34,8 +34,9 @@ module' :: Module.Interfaces -> Module.ValidModule -> Either [Doc] Module.Canoni
3434module' interfaces modul =
3535 filterImports <$> modul'
3636 where
37− canonicalizer = moduleHelp interfaces modul
38− (modul', usedModules) = runState (runErrorT canonicalizer) Set.empty
37+ (modul', usedModules) =
38+ runState (runErrorT (moduleHelp interfaces modul)) Set.empty
39+
3940 filterImports m =
4041 let used (name,_) = Set.member name usedModules
4142 in m { Module.imports = filter used (Module.imports m) }