[project @ 1998-05-22 09:09:56 by simonm]

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

diff --git a/ghc/compiler/parser/pbinding.ugn b/ghc/compiler/parser/pbinding.ugn
index 03e7688..73c4647 100644 (file)
--- a/ghc/compiler/parser/pbinding.ugn
+++ b/ghc/compiler/parser/pbinding.ugn
@@ -3,13 +3,13 @@
 %}
 %{{
 module U_pbinding where
-import Ubiq --  debugging consistency check
+
+#include "HsVersions.h"
+
 import UgenUtil
 
 import U_constr                ( U_constr )    -- interface only
 import U_binding
-import U_coresyn       ( U_coresyn )   -- ditto
-import U_hpragma       ( U_hpragma )   -- ditto
 import U_list
 import U_literal       ( U_literal )   -- ditto
 import U_maybe         ( U_maybe )     -- ditto
@@ -26,6 +26,7 @@ type pbinding;
 
        pnoguards : < gpnoguard : tree; >;
        pguards   : < gpguards  : list; >;
-       pgdexp    : < gpguard   : tree;
+
+       pgdexp    : < gpguard   : list;         /* Experimental change: guards are lists of quals */
                      gpexp     : tree; >;
 end;