X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FMagicUFs.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FMagicUFs.lhs;h=9df17ead3ce43eb99bc2cc7f8ad9713f4c991e35;hb=9dd6e1c216993624a2cd74b62ca0f0569c02c26b;hp=73b803cb1e51d27d17081b67744de8622af16d2b;hpb=ff14742cc328f19b9bf7c04d9a69408e641cf64a;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/MagicUFs.lhs b/ghc/compiler/simplCore/MagicUFs.lhs
index 73b803c..9df17ea 100644
--- 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-} )