git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Don't apply module collision renaming to current module
e40d4d0Gary Burgess
src/Language/PureScript/CodeGen/JS.hs+1−1
compare with golang
unifiedsplit
@@ -90,7 +90,7 @@ moduleToJs (Module coms mn imps exps foreigns decls) foreign_ =
90 go :: M.Map ModuleName ModuleName -> [Ident] -> [ModuleName] -> M.Map ModuleName ModuleName
90 go :: M.Map ModuleName ModuleName -> [Ident] -> [ModuleName] -> M.Map ModuleName ModuleName
91 go acc used (mn' : mns') =
91 go acc used (mn' : mns') =
92 let mni = Ident $ runModuleName mn'
92 let mni = Ident $ runModuleName mn'
93− in if mni `elem` used
93+ in if mn' /= mn && mni `elem` used
94 then let newName = freshModuleName 1 mn' used
94 then let newName = freshModuleName 1 mn' used
95 in go (M.insert mn' newName acc) (Ident (runModuleName newName) : used) mns'
95 in go (M.insert mn' newName acc) (Ident (runModuleName newName) : used) mns'
96 else go (M.insert mn' mn' acc) (mni : used) mns'
96 else go (M.insert mn' mn' acc) (mni : used) mns'