git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Use extM instead of chaining everywhereM
commitc18350ba4775e54ddf57cadb496d82f4c7e23518 authorGary Burgess <gary.burgess@gmail.com> dateThu 27 Feb 2014, 21:25 (13 years ago) parenta47fe6c
1 file changed+1−1
compare with golang
unifiedsplit
src/Language/PureScript/Sugar/Names.hs+1−1
src/Language/PureScript/Sugar/Names.hs+1−1
@@ -68,7 +68,7 @@ rename modules = mapM renameInModule' modules
6868
6969renameInModule :: ImportEnvironment -> Module -> Either String Module
7070renameInModule 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)
7272 where
7373 updateDecl (TypeInstanceDeclaration cs (Qualified Nothing cn) ts ds) = do
7474 cn' <- updateClassName cn