summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 36d066d..a055950 100644
--- a/Main.hs
+++ b/Main.hs
@@ -15,6 +15,8 @@ import System.IO
import System.Locale (defaultTimeLocale, rfc822DateFormat)
--import System.Posix.Signals
+import GHC.Stats (getGCStats)
+
import Control.Monad.Error
import Control.Monad.Reader
import Control.Monad.State
@@ -228,6 +230,9 @@ execCommand ExecuteInputBuffer = do
st <- get
case showBuffer (buffer st) of
+ ":s" -> do
+ s <- liftIO getGCStats
+ tell [ show s ]
'!' : cmdline -> do
--tell [ "spawn: " ++ cmdline ]
-- "input: <" ++ (concat $ map (reform 32) $ showBuffer b) ++ ">" ]