[project @ 1997-07-31 00:05:10 by sof]

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

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