summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2021-02-23 19:37:03 +0100
committertv <tv@krebsco.de>2021-02-23 19:37:03 +0100
commit03fcdacc80c7044047b544aa69ae9ecc6f7902b4 (patch)
treeef3ee2cc59b2071ca6fcbcd749ff5f503cf57806 /src
parent9c2d648916f1a62fc429527bae610f71967843ea (diff)
Main: getGCStats -> getRTSStats
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs4
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 ]