diff options
| -rw-r--r-- | src/Main.hs | 4 |
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 ] |