X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FCheck.lhs;h=4f134eb1eb2edf3d42e4134703dab52c01e4eab9;hb=acc784b55045fe43b2d92efc992a4b888d96c682;hp=d44583445164f4e423bd5bf36477736f048f2502;hpb=10fcd78ccde892feccda3f5eacd221c1de75feea;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Check.lhs b/ghc/compiler/deSugar/Check.lhs
index d445834..4f134eb 100644
--- a/ghc/compiler/deSugar/Check.lhs
+++ b/ghc/compiler/deSugar/Check.lhs
@@ -19,7 +19,7 @@ import DsUtils		( EquationInfo(..), MatchResult(..), EqnSet,
 import Id		( idType )
 import DataCon		( DataCon, dataConTyCon, dataConArgTys,
 			  dataConSourceArity, dataConFieldLabels )
-import Name             ( Name, mkLocalName, getOccName, isDataSymOcc, getName, mkVarOcc )
+import Name             ( Name, mkInternalName, getOccName, isDataSymOcc, getName, mkVarOcc )
 import TcType		( mkTyVarTys )
 import TysPrim		( charPrimTy )
 import TysWiredIn
@@ -375,7 +375,7 @@ make_row_vars used_lits (EqnInfo _ _ pats _ ) =
    (VarPatIn new_var:takeList (tail pats) (repeat new_wild_pat),[(new_var,used_lits)])
   where new_var = hash_x
 
-hash_x = mkLocalName unboundKey {- doesn't matter much -}
+hash_x = mkInternalName unboundKey {- doesn't matter much -}
 		     (mkVarOcc SLIT("#x"))
 		     noSrcLoc