projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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}
\section[MagicUFs]{Magic unfoldings that the simplifier knows about}
\begin{code}
-#include "HsVersions.h"
-
module MagicUFs (
MagicUnfoldingFun, -- absolutely abstract
module MagicUFs (
MagicUnfoldingFun, -- absolutely abstract
@@
-13,15
+11,12
@@
module MagicUFs (
applyMagicUnfoldingFun
) where
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 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-} )
import Type ( mkFunTys )
import TysWiredIn ( mkListTy )
import Unique ( Unique{-instances-} )