X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgBindery.lhs;h=acac740379b06116570e7c9a003d0c2d2adfb055;hb=38cc64eb23a0f286744b3e3d150dcd2c2c823466;hp=7414569b28b22a7e6db4dfb0b150f2c16a898ac2;hpb=9ef74223b4755d107b412ed7e6416231a5f65d46;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs
index 7414569..acac740 100644
--- a/ghc/compiler/codeGen/CgBindery.lhs
+++ b/ghc/compiler/codeGen/CgBindery.lhs
@@ -44,7 +44,7 @@ import VarEnv
 import VarSet		( varSetElems )
 import Literal		( Literal )
 import Maybes		( catMaybes, maybeToBool, seqMaybe )
-import Name		( isLocalName, NamedThing(..) )
+import Name		( isInternalName, NamedThing(..) )
 #ifdef DEBUG
 import PprAbsC		( pprAmode )
 #endif
@@ -259,7 +259,7 @@ getCAddrModeAndInfo id
 	case maybe_cg_id_info of
 
 		-- Nothing => not in the environment, so should be imported
-	  Nothing | isLocalName name -> cgLookupPanic id
+	  Nothing | isInternalName name -> cgLookupPanic id
 		  | otherwise	     -> returnFC (id, global_amode, mkLFImported id)
 
 	  Just (MkCgIdInfo id' volatile_loc stable_loc lf_info)