From 61c0713928628b95607185e6443be02b684bd483 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Thu, 9 Mar 2000 14:18:22 +0000
Subject: [PATCH] [project @ 2000-03-09 14:18:12 by panne] Added some NOINLINE
 pragmas for unsafePerformIO/newIORef hacks.

---
 ghc/compiler/prelude/ThinAir.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/prelude/ThinAir.lhs b/ghc/compiler/prelude/ThinAir.lhs
index c935113..62ee2d2 100644
--- 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"))
 
-- 
1.7.10.4