[project @ 1997-06-18 23:52:36 by simonpj]

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

diff --git a/ghc/compiler/parser/UgenAll.lhs b/ghc/compiler/parser/UgenAll.lhs
index 9bb3e80..b17b849 100644 (file)
--- 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