git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Use extM instead of chaining everywhereM
c18350bGary Burgess
src/Language/PureScript/Sugar/Names.hs+1−1
compare with golang
unifiedsplit
@@ -68,7 +68,7 @@ rename modules = mapM renameInModule' modules
68
68
69renameInModule :: ImportEnvironment -> Module -> Either String Module
69renameInModule :: ImportEnvironment -> Module -> Either String Module
70renameInModule imports (Module mn decls) =
70renameInModule imports (Module mn decls) =
71− Module mn <$> mapM updateDecl decls >>= everywhereM (mkM updateType) >>= everywhereM (mkM updateValue) >>= everywhereM (mkM updateBinder)
71+ Module mn <$> mapM updateDecl decls >>= everywhereM ((mkM updateType) `extM` updateValue `extM` updateBinder)
72 where
72 where
73 updateDecl (TypeInstanceDeclaration cs (Qualified Nothing cn) ts ds) = do
73 updateDecl (TypeInstanceDeclaration cs (Qualified Nothing cn) ts ds) = do
74 cn' <- updateClassName cn
74 cn' <- updateClassName cn