ghc/compiler/parser/grhsb.ugn

   1 %{
   2 #include "hspincl.h"
   3 %}
   4 %{{
   5 module U_grhsb where
   6
   7 #include "HsVersions.h"
   8
   9 import UgenUtil
  10
  11 import U_binding
  12 import U_list
  13 %}}
  14
  15 /* Guarded right hand sides and bindings */
  16 type grhsb;
  17         pguards         : < ggrhss      : list;         /* of gdexp */
  18                             ggbind1     : binding; >;
  19         pnoguards       : < gnogline    : long;         /* Line number of '=' sign */
  20                             grhs        : VOID_STAR;    /* The rhs, of type tree; can't say 'tree' because
  21                                                            that leads to mutual recursion in the C */
  22                             ggbind2     : binding; >;
  23 end;
  24