:s -> getGCStats

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) ++ ">" ]