diff options
| -rw-r--r-- | compiler/utils/FastString.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index b1024bd41b..4d75e683cb 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -412,7 +412,8 @@ stringTable = unsafePerformIO $ do #if STAGE < 2 return tab #else - sharedCAF tab getOrSetLibHSghcFastStringTable + return tab +-- sharedCAF tab getOrSetLibHSghcFastStringTable -- from the RTS; thus we cannot use this mechanism when STAGE<2; the previous -- RTS might not have this symbol |