X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=b1f3795378303101fc770116f514acbf4ccaf311;hp=63fd99dde1ae688b645f5f128dbd16bbaf7e814c;hb=a31e156abe004186a959d04167be062969034f54;hpb=2bad3deb28991726ecff922887f39e51c39e0293

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 63fd99d..b1f3795 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -725,7 +725,7 @@ check_occs ie occs names
 
 	    | 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