ghc/compiler/parser/UgenAll.lhs

   1 Stuff the Ugenny things show to the parser.
   2
   3 \begin{code}
   4 #include "HsVersions.h"
   5
   6 module UgenAll (
   7         -- re-exported Prelude stuff
   8         returnUgn, thenUgn,
   9
  10         -- stuff defined in utils module
  11 #if (! defined(REALLY_HASKELL_1_3)) || PATRICK_FIXES_MODULE_DOTDOT_THING
  12         EXP_MODULE(UgenUtil) ,
  13
  14         -- re-exported ugen-generated stuff
  15         EXP_MODULE(U_binding) ,
  16         EXP_MODULE(U_constr) ,
  17         EXP_MODULE(U_entidt) ,
  18         EXP_MODULE(U_list) ,
  19         EXP_MODULE(U_literal) ,
  20         EXP_MODULE(U_maybe) ,
  21         EXP_MODULE(U_either) ,
  22         EXP_MODULE(U_pbinding) ,
  23         EXP_MODULE(U_qid) ,
  24         EXP_MODULE(U_tree) ,
  25         EXP_MODULE(U_ttype)
  26 #else
  27         SYN_IE(ParseTree),
  28         SYN_IE(U_VOID_STAR),
  29         U_binding (..),
  30         U_constr (..),
  31         U_either (..),
  32         U_entidt (..),
  33         SYN_IE(U_hstring),
  34         U_list (..),
  35         U_literal (..),
  36         SYN_IE(U_long),
  37         U_maybe (..),
  38         SYN_IE(U_numId),
  39         U_pbinding (..),
  40         U_qid (..),
  41         SYN_IE(U_stringId),
  42         U_tree (..),
  43         U_ttype (..),
  44         SYN_IE(UgnM),
  45         getSrcFileUgn,
  46         getSrcLocUgn,
  47         getSrcModUgn,
  48         initUgn,
  49         ioToUgnM,
  50         mkSrcLocUgn,
  51         rdU_VOID_STAR,
  52         rdU_binding,
  53         rdU_constr,
  54         rdU_either,
  55         rdU_entidt,
  56         rdU_hstring,
  57         rdU_list,
  58         rdU_literal,
  59         rdU_long,
  60         rdU_maybe,
  61         rdU_numId,
  62         rdU_pbinding,
  63         rdU_qid,
  64         rdU_stringId,
  65         rdU_tree,
  66         rdU_ttype,
  67         setSrcFileUgn,
  68         setSrcModUgn
  69 #endif
  70     ) where
  71
  72 import PreludeGlaST
  73
  74 IMP_Ubiq(){-uitous-}
  75
  76 -- friends:
  77 import U_binding
  78 import U_constr
  79 import U_entidt
  80 import U_list
  81 import U_literal
  82 import U_maybe
  83 import U_either
  84 import U_pbinding
  85 import U_qid
  86 import U_tree
  87 import U_ttype
  88
  89 import UgenUtil
  90 \end{code}