summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-07-28 14:03:00 +0200
committertv <tv@shackspace.de>2014-07-28 14:03:00 +0200
commit7687ddd2775d873dc67b243efda981510797549a (patch)
tree0eff7bc853ce0925801fd11b497aea494915a748 /Main.hs
parentcb460f6382e237c95c4201c31e409118d93e1235 (diff)
:s -> getGCStats
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) ++ ">" ]