[project @ 1998-01-08 18:03:08 by simonm]

[ghc-hetmet.git] / ghc / compiler / parser / constr.ugn

diff --git a/ghc/compiler/parser/constr.ugn b/ghc/compiler/parser/constr.ugn
index 30cd438..d4e588b 100644 (file)
--- a/ghc/compiler/parser/constr.ugn
+++ b/ghc/compiler/parser/constr.ugn
@@ -2,10 +2,11 @@
 #include "hspincl.h"
 %}
 %{{
-#include "HsVersions.h"
 
 module U_constr where
-IMP_Ubiq() --  debugging consistency check
+
+#include "HsVersions.h"
+
 import UgenUtil
 
 import U_maybe
@@ -35,6 +36,10 @@ type constr;
                        gconnty     : ttype;
                        gconnline   : long; >;
 
+       /* constr with a prefixed context C => ... */
+       constrcxt   : < gconcxt     : list;
+                       gconcon     : constr; >;
+                       
        field       : < gfieldn     : list;
                        gfieldt     : ttype; >;
 end;