[project @ 1996-06-26 10:26:00 by partain]

[ghc-hetmet.git] / ghc / compiler / parser / UgenAll.lhs

diff --git a/ghc/compiler/parser/UgenAll.lhs b/ghc/compiler/parser/UgenAll.lhs
index d6ebf18..3a5f86c 100644 (file)
--- a/ghc/compiler/parser/UgenAll.lhs
+++ b/ghc/compiler/parser/UgenAll.lhs
@@ -8,21 +8,65 @@ module UgenAll (
        returnUgn, thenUgn,
 
        -- stuff defined in utils module
-       UgenUtil.. ,
+#if (! defined(REALLY_HASKELL_1_3)) || PATRICK_FIXES_MODULE_DOTDOT_THING
+       EXP_MODULE(UgenUtil) ,
 
        -- re-exported ugen-generated stuff
-       U_binding.. ,
-       U_constr.. ,
-       U_entidt.. ,
-       U_list.. ,
-       U_literal.. ,
-       U_maybe.. ,
-       U_either.. ,
-       U_pbinding.. ,
-       U_qid.. ,
-       U_tree.. ,
-       U_ttype..
-
+       EXP_MODULE(U_binding) ,
+       EXP_MODULE(U_constr) ,
+       EXP_MODULE(U_entidt) ,
+       EXP_MODULE(U_list) ,
+       EXP_MODULE(U_literal) ,
+       EXP_MODULE(U_maybe) ,
+       EXP_MODULE(U_either) ,
+       EXP_MODULE(U_pbinding) ,
+       EXP_MODULE(U_qid) ,
+       EXP_MODULE(U_tree) ,
+       EXP_MODULE(U_ttype)
+#else
+       SYN_IE(ParseTree),
+       SYN_IE(U_VOID_STAR),
+       U_binding (..),
+       U_constr (..),
+       U_either (..),
+       U_entidt (..),
+       SYN_IE(U_hstring),
+       U_list (..),
+       U_literal (..),
+       SYN_IE(U_long),
+       U_maybe (..),
+       SYN_IE(U_numId),
+       U_pbinding (..),
+       U_qid (..),
+       SYN_IE(U_stringId),
+       U_tree (..),
+       U_ttype (..),
+       SYN_IE(UgnM),
+       getSrcFileUgn,
+       getSrcLocUgn,
+       getSrcModUgn,
+       initUgn,
+       ioToUgnM,
+       mkSrcLocUgn,
+       rdU_VOID_STAR,
+       rdU_binding,
+       rdU_constr,
+       rdU_either,
+       rdU_entidt,
+       rdU_hstring,
+       rdU_list,
+       rdU_literal,
+       rdU_long,
+       rdU_maybe,
+       rdU_numId,
+       rdU_pbinding,
+       rdU_qid,
+       rdU_stringId,
+       rdU_tree,
+       rdU_ttype,
+       setSrcFileUgn,
+       setSrcModUgn
+#endif
     ) where
 
 import PreludeGlaST