[project @ 1997-06-05 20:14:52 by sof]

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplMonad.lhs

diff --git a/ghc/compiler/simplCore/SimplMonad.lhs b/ghc/compiler/simplCore/SimplMonad.lhs
index b06120f..bb48d8f 100644 (file)
--- a/ghc/compiler/simplCore/SimplMonad.lhs
+++ b/ghc/compiler/simplCore/SimplMonad.lhs
@@ -23,7 +23,12 @@ module SimplMonad (
 IMP_Ubiq(){-uitous-}
 IMPORT_1_3(Ix)
 
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(SmplLoop)              -- well, cheating sort of
+#else
+import {-# SOURCE #-} Simplify
+import {-# SOURCE #-} MagicUFs
+#endif
 
 import Id              ( GenId, mkSysLocal, mkIdWithNewUniq, SYN_IE(Id) )
 import CoreUnfold      ( SimpleUnfolding )