X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FFastString.lhs;h=cdabd626ca9d75a2a9b9668a5f628095ca67c13d;hb=1c5499d4d5d506ce0cc971e98c09bfbf7bc290a1;hp=4aa10ae7752ed70409c4d18f1b4d36ffa0fbcf6a;hpb=9f589efb688f22cb0637f9c1164dd9027b4378a3;p=ghc-hetmet.git

diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs
index 4aa10ae..cdabd62 100644
--- a/compiler/utils/FastString.lhs
+++ b/compiler/utils/FastString.lhs
@@ -161,6 +161,7 @@ data FastStringTable =
     {-# UNPACK #-} !Int
     (MutableArray# RealWorld [FastString])
 
+{-# NOINLINE string_table #-}
 string_table :: IORef FastStringTable
 string_table = 
  unsafePerformIO $ do