diff options
Diffstat (limited to 'ghc/compiler/ghci/ByteCodeLink.lhs')
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeLink.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs index 1f15efcb12..99d0bc203f 100644 --- a/ghc/compiler/ghci/ByteCodeLink.lhs +++ b/ghc/compiler/ghci/ByteCodeLink.lhs @@ -409,7 +409,7 @@ GLOBAL_VAR(v_cafTable, [], [HValue]) addCAF :: HValue -> IO () addCAF x = do xs <- readIORef v_cafTable - putStrLn ("addCAF " ++ show (1 + length xs)) + --putStrLn ("addCAF " ++ show (1 + length xs)) writeIORef v_cafTable (x:xs) |