[project @ 2001-08-24 12:45:28 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / ExternalCore.lhs

diff --git a/ghc/compiler/coreSyn/ExternalCore.lhs b/ghc/compiler/coreSyn/ExternalCore.lhs
index 4894deb..9ed748f 100644 (file)
--- a/ghc/compiler/coreSyn/ExternalCore.lhs
+++ b/ghc/compiler/coreSyn/ExternalCore.lhs
@@ -12,7 +12,7 @@ data Module
 
 data Tdef 
   = Data Tcon [Tbind] [Cdef]
-  | Newtype Tcon [Tbind] Ty
+  | Newtype Tcon [Tbind] (Maybe Ty)
 
 data Cdef 
   = Constr Dcon [Tbind] [Ty]
@@ -34,7 +34,7 @@ data Exp
   | Case Exp Vbind [Alt] {- non-empty list -}
   | Coerce Ty Exp 
   | Note String Exp
-  | Ccall String Ty
+  | External String Ty
 
 data Bind 
   = Vb Vbind