Commit a65481fc authored by Isaac Dupree's avatar Isaac Dupree

NOINLINE the global FastString.string_table

parent d27302b9
......@@ -161,6 +161,7 @@ data FastStringTable =
{-# UNPACK #-} !Int
(MutableArray# RealWorld [FastString])
{-# NOINLINE string_table #-}
string_table :: IORef FastStringTable
string_table =
unsafePerformIO $ do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment