#include "hspincl.h"
%}
%{{
+module U_tree where
+
#include "HsVersions.h"
-module U_tree where
-IMP_Ubiq() -- debugging consistency check
import UgenUtil
import U_constr ( U_constr ) -- interface only
import U_binding
+import U_match
import U_list
import U_literal
import U_maybe
hmodule : < ghname : stringId;
ghimplist : list; /* [import] */
ghexplist : maybe; /* Maybe [entity] */
- ghfixes : list; /* [fixop] */
ghmodlist : binding;
ghversion : long;
ghmodline : long; >;
- fixop : < gfixop : qid;
- gfixinfx : long;
- gfixprec : long; >;
ident : < gident : qid; >;
lit : < glit : literal; >;
ginfarg2 : tree; >;
negate : < gnexp : tree; >;
- lambda : < glampats : list;
- glamexpr : tree;
- glamline : long; >;
+ lambda : < glammatch : match;>;
let : < gletvdefs : binding;
gletvexpr : tree; >;
casee : < gcaseexpr : tree;
- gcasebody : list;
+ gcasebody : list; /* Of match */
gcaseline : long; >;
ife : < gifpred : tree;
gifthen : tree;
plusp : < gplusp : qid;
gplusi : literal; >;
wildp : < >;
- restr : < grestre : tree;
+ restr : < grestre : tree; /* type signature */
grestrt : ttype; >;
tuple : < gtuplelist : list; >;
+ utuple : < gutuplelist : list; >;
llist : < gllist : list; >;
eenum : < gefrom : tree;
gestep : maybe;