[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 2700417..73c4647 100644 (file)
--- a/ghc/compiler/parser/pbinding.ugn
+++ b/ghc/compiler/parser/pbinding.ugn
@@ -3,7 +3,9 @@
 %}
 %{{
 module U_pbinding where
-import Ubiq --  debugging consistency check
+
+#include "HsVersions.h"
+
 import UgenUtil
 
 import U_constr                ( U_constr )    -- interface only
@@ -24,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;