ghc/compiler/parser/gdexp.ugn

   1 %{
   2 #include "hspincl.h"
   3 %}
   4 %{{
   5 module U_gdexp where
   6
   7 #include "HsVersions.h"
   8
   9 import UgenUtil
  10
  11 import U_list
  12 import U_tree
  13 %}}
  14
  15 type gdexp;
  16         pgdexp    : < gpguard   : list /* of quals */ ;         /* Experimental change: guards are lists of quals */
  17                       gpgline   : long;                         /* Line number of '=' sign */
  18                       gpexp     : tree; >;
  19 end;