[project @ 1997-06-05 09:16:04 by sof]

[ghc-hetmet.git] / ghc / compiler / utils / FiniteMap.lhs

diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs
index 27fda94..319e386 100644 (file)
--- a/ghc/compiler/utils/FiniteMap.lhs
+++ b/ghc/compiler/utils/FiniteMap.lhs
@@ -69,7 +69,12 @@ module FiniteMap (
 #endif
     ) where
 
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(SpecLoop)
+#else
+import {-# SOURCE #-} Name
+#endif
+
 #if __GLASGOW_HASKELL__ >= 202
 import GlaExts
 #endif
@@ -78,8 +83,7 @@ import FastString
 #endif
 import Maybes
 import Bag       ( Bag, foldrBag )
-import Outputable ( Outputable(..) )
-import PprStyle        ( PprStyle )
+import Outputable ( PprStyle, Outputable(..) )
 import Pretty  ( Doc )
 
 #ifdef COMPILING_GHC