[project @ 2000-03-09 14:18:12 by panne]

[ghc-hetmet.git] / ghc / compiler / prelude / ThinAir.lhs

diff --git a/ghc/compiler/prelude/ThinAir.lhs b/ghc/compiler/prelude/ThinAir.lhs
index c935113..62ee2d2 100644 (file)
--- a/ghc/compiler/prelude/ThinAir.lhs
+++ b/ghc/compiler/prelude/ThinAir.lhs
@@ -92,6 +92,7 @@ buildId = lookupThinAirId buildIdKey
 \end{code}
 
 \begin{code}
+{-# NOINLINE thinAirIdMapRef #-}
 thinAirIdMapRef :: IORef (UniqFM Id)
 thinAirIdMapRef = unsafePerformIO (newIORef (panic "thinAirIdMap: still empty"))