@@ -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'