X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FUgenAll.lhs;h=b17b849638fea24d005e6a24a4ed61ea2ed4eb7f;hb=9c26739695219d8343505a88457cb55c76b65449;hp=9bb3e80a751675963f663e69c50f1f87a4fdba19;hpb=f9120c200bcf613b58d742802172fb4c08171f0d;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/UgenAll.lhs b/ghc/compiler/parser/UgenAll.lhs
index 9bb3e80..b17b849 100644
--- a/ghc/compiler/parser/UgenAll.lhs
+++ b/ghc/compiler/parser/UgenAll.lhs
@@ -1,31 +1,36 @@
 Stuff the Ugenny things show to the parser.
 
 \begin{code}
+#include "HsVersions.h"
+
 module UgenAll (
 	-- re-exported Prelude stuff
 	returnUgn, thenUgn,
 
 	-- stuff defined in utils module
-	UgenUtil.. ,
+	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)
     ) where
 
+#if __GLASGOW_HASKELL__ <= 201
 import PreludeGlaST
+#else
+import GlaExts
+#endif
 
-import Ubiq{-uitous-}
+IMP_Ubiq(){-uitous-}
 
 -- friends:
 import U_binding