ghc/compiler/parser/pbinding.ugn

   1 %{
   2 #include "hspincl.h"
   3 %}
   4 %{{
   5 module U_pbinding where
   6 import Ubiq --  debugging consistency check
   7 import UgenUtil
   8
   9 import U_constr         ( U_constr )    -- interface only
  10 import U_binding
  11 import U_coresyn        ( U_coresyn )   -- ditto
  12 import U_hpragma        ( U_hpragma )   -- ditto
  13 import U_list
  14 import U_literal        ( U_literal )   -- ditto
  15 import U_maybe          ( U_maybe )     -- ditto
  16 import U_qid
  17 import U_tree
  18 import U_ttype          ( U_ttype )     -- ditto
  19 %}}
  20 type pbinding;
  21         pgrhs   : < ggpat       : tree;
  22                     ggdexprs    : pbinding;
  23                     ggbind      : binding;
  24                     ggfuncname  : qid;
  25                     ggline      : long; >;
  26
  27         pnoguards : < gpnoguard : tree; >;
  28         pguards   : < gpguards  : list; >;
  29         pgdexp    : < gpguard   : tree;
  30                       gpexp     : tree; >;
  31 end;