Main: getGCStats -> getRTSStats

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 11f8fe6..c07053f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -15,7 +15,7 @@ import Numeric (showIntAtBase)
 import System.IO
 --import System.Posix.Signals
 
-import GHC.Stats (getGCStats)
+import GHC.Stats (getRTSStats)
 
 import Control.Monad.Error
 import Control.Monad.Reader
@@ -283,7 +283,7 @@ execCommand ExecuteInputBuffer = do
           tell $ map (\(r, s) -> ['"', r] ++ "  " ++ s) -- TODO pp
                $ Map.toList (_registers st)
       ":s" -> do
-          s <- liftIO getGCStats
+          s <- liftIO getRTSStats
           tell [ show s ]
       '!' : cmdline -> do
           --tell [ "spawn: " ++ cmdline ]