From 78a34bc52b3638ad47f2c5aa75245c7d0cd97e9a Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 17 Apr 2015 13:34:41 +0000
Subject: [PATCH] pgf-shell.hs: remove call to performGC and document the 'i'
 command

---
 src/runtime/haskell-bind/examples/pgf-shell.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/runtime/haskell-bind/examples/pgf-shell.hs b/src/runtime/haskell-bind/examples/pgf-shell.hs
index 4d8bda65f..722770822 100644
--- a/src/runtime/haskell-bind/examples/pgf-shell.hs
+++ b/src/runtime/haskell-bind/examples/pgf-shell.hs
@@ -1,11 +1,12 @@
 -- | pgf-shell: A simple shell to illustrate the use of the Haskell binding
 --   to the C implementation of the PGF run-time system.
 --
---   The shell has 3 commands:
+--   The shell has 4 commands:
 --
 --     * parse: p <lang> <text>
 --     * linearize: l <lang> <tree>
 --     * translate: t <lang> <lang> <text> 
+--     * import: i <path to pgf>
 
 import Control.Monad(forever)
 import Control.Monad.State(evalStateT,put,get,gets,liftIO)
@@ -15,7 +16,6 @@ import qualified Data.Map as M
 import System.IO(hFlush,stdout)
 import System.Environment
 import PGF2
-import System.Mem(performGC)
 import qualified Data.Map as Map
 
 main = getPGF =<< getArgs
@@ -25,8 +25,7 @@ getPGF _ = putStrLn "Usage: pgf-shell <path to pgf>"
 
 pgfShell pgf =
   do putStrLn . unwords . M.keys $ languages pgf
-     flip evalStateT (pgf,[]) $ forever $ do liftIO performGC
-                                             puts "> "; liftIO $ hFlush stdout
+     flip evalStateT (pgf,[]) $ forever $ do puts "> "; liftIO $ hFlush stdout
                                              execute =<< liftIO readLn
 
 execute cmd =