[project @ 1997-05-26 01:17:20 by sof]

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

diff --git a/ghc/compiler/parser/UgenAll.lhs b/ghc/compiler/parser/UgenAll.lhs
index 3a5f86c..b17b849 100644 (file)
--- a/ghc/compiler/parser/UgenAll.lhs
+++ b/ghc/compiler/parser/UgenAll.lhs
@@ -8,7 +8,6 @@ module UgenAll (
        returnUgn, thenUgn,
 
        -- stuff defined in utils module
-#if (! defined(REALLY_HASKELL_1_3)) || PATRICK_FIXES_MODULE_DOTDOT_THING
        EXP_MODULE(UgenUtil) ,
 
        -- re-exported ugen-generated stuff
@@ -23,53 +22,13 @@ module UgenAll (
        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
 
+#if __GLASGOW_HASKELL__ <= 201
 import PreludeGlaST
+#else
+import GlaExts
+#endif
 
 IMP_Ubiq(){-uitous-}