The ordering of items in the parsed export list is now correct, so we
have to compensate to get the right output again.
| otherwise -- Same occ name but different names: an error
-> do { global_env <- getGlobalRdrEnv ;
| otherwise -- Same occ name but different names: an error
-> do { global_env <- getGlobalRdrEnv ;
- addErr (exportClashErr global_env name name' ie ie') ;
+ addErr (exportClashErr global_env name' name ie' ie) ;
returnM occs }
where
name_occ = nameOccName name
returnM occs }
where
name_occ = nameOccName name