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_list
  12 import U_literal        ( U_literal )   -- ditto
  13 import U_maybe          ( U_maybe )     -- ditto
  14 import U_qid
  15 import U_tree
  16 import U_ttype          ( U_ttype )     -- ditto
  17 %}}
  18 type pbinding;
  19         pgrhs   : < ggpat       : tree;
  20                     ggdexprs    : pbinding;
  21                     ggbind      : binding;
  22                     ggfuncname  : qid;
  23                     ggline      : long; >;
  24
  25         pnoguards : < gpnoguard : tree; >;
  26         pguards   : < gpguards  : list; >;
  27         pgdexp    : < gpguard   : tree;
  28                       gpexp     : tree; >;
  29 end;