[project @ 1998-01-08 18:03:08 by simonm]

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

diff --git a/ghc/compiler/simplCore/MagicUFs.lhs b/ghc/compiler/simplCore/MagicUFs.lhs
index 73b803c..9df17ea 100644 (file)
--- a/ghc/compiler/simplCore/MagicUFs.lhs
+++ b/ghc/compiler/simplCore/MagicUFs.lhs
@@ -4,8 +4,6 @@
 \section[MagicUFs]{Magic unfoldings that the simplifier knows about}
 
 \begin{code}
-#include "HsVersions.h"
-
 module MagicUFs (
        MagicUnfoldingFun,  -- absolutely abstract
 
@@ -13,15 +11,12 @@ module MagicUFs (
        applyMagicUnfoldingFun
     ) where
 
-IMP_Ubiq(){-uitous-}
-#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
-IMPORT_DELOOPER(IdLoop)                -- paranoia checking
-#endif
+#include "HsVersions.h"
 
 import Id              ( addInlinePragma )
 import CoreSyn
 import SimplEnv                ( SimplEnv )
-import SimplMonad      ( SYN_IE(SmplM), SimplCount )
+import SimplMonad      ( SmplM, SimplCount )
 import Type            ( mkFunTys )
 import TysWiredIn      ( mkListTy )
 import Unique          ( Unique{-instances-} )