From 03fcdacc80c7044047b544aa69ae9ecc6f7902b4 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 23 Feb 2021 19:37:03 +0100
Subject: Main: getGCStats -> getRTSStats

---
 src/Main.hs | 4 ++--
 1 file 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 ]
-- 
cgit v1.2.3