projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-08-09 14:27:53 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
coreSyn
/
ExternalCore.lhs
diff --git
a/ghc/compiler/coreSyn/ExternalCore.lhs
b/ghc/compiler/coreSyn/ExternalCore.lhs
index
2e86da9
..
d7eb455
100644
(file)
--- 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
| Newtype (Qual Tcon) [Tbind] (Maybe Ty)
data Cdef
- = Constr (Qual Dcon) [Tbind] [Ty]
+ = Constr Dcon [Tbind] [Ty]
data Vdefg
= Rec [Vdef]
| Nonrec Vdef
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)
data Exp
= Var (Qual Var)
@@
-76,7
+76,7
@@
type Qual t = (Mname,t)
type Id = String
type Id = String
-primMname = "PrelGHC"
+primMname = "GHCziPrim"
tcArrow :: Qual Tcon
tcArrow = (primMname, "ZLzmzgZR")
tcArrow :: Qual Tcon
tcArrow = (primMname, "ZLzmzgZR")