X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FcoreSyn%2FExternalCore.lhs;h=d7eb45579a36b8732e69c24396a2ed6191edb982;hb=05881ecab43dfc5c13e0065d52a3fc8848657b20;hp=2e86da9e6fd59a8bb853c76c2e117ec284d86f4e;hpb=53ce311e219dcccf4d205f573c16e23a5c44265e;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/ExternalCore.lhs b/ghc/compiler/coreSyn/ExternalCore.lhs
index 2e86da9..d7eb455 100644
--- a/ghc/compiler/coreSyn/ExternalCore.lhs
+++ b/ghc/compiler/coreSyn/ExternalCore.lhs
@@ -14,13 +14,13 @@ data Tdef
   | Newtype (Qual Tcon) [Tbind] (Maybe Ty)
 
 data Cdef 
-  = Constr (Qual Dcon) [Tbind] [Ty]
+  = Constr Dcon [Tbind] [Ty]
 
 data Vdefg 
   = Rec [Vdef]
   | Nonrec Vdef
 
-type Vdef = (Qual Var,Ty,Exp) 
+type Vdef = (Var,Ty,Exp) 	-- Top level bindings are unqualified now
 
 data Exp 
   = Var (Qual Var)
@@ -76,7 +76,7 @@ type Qual t = (Mname,t)
 
 type Id = String
 
-primMname = "PrelGHC"
+primMname = "GHCziPrim"
 
 tcArrow :: Qual Tcon
 tcArrow = (primMname, "ZLzmzgZR")