X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FUgenAll.lhs;h=3a5f86c95410447048c543bfd2593f23c366f252;hb=26741ec416bae2c502ef00a2ba0e79050a32cb67;hp=d6ebf181e7d70f4acea9b191417b13711b361862;hpb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/UgenAll.lhs b/ghc/compiler/parser/UgenAll.lhs
index d6ebf18..3a5f86c 100644
--- 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