summaryrefslogtreecommitdiff
path: root/src/Grasp
diff options
context:
space:
mode:
Diffstat (limited to 'src/Grasp')
-rw-r--r--src/Grasp/Interpreter.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Grasp/Interpreter.hs b/src/Grasp/Interpreter.hs
index 969c848..0ea7a57 100644
--- a/src/Grasp/Interpreter.hs
+++ b/src/Grasp/Interpreter.hs
@@ -3,6 +3,7 @@ module Grasp.Interpreter (
) where
+import Control.Monad
import System.Random
import System.IO
import Text.Read( readMaybe )
@@ -338,6 +339,7 @@ putcI g node = do
" may only have one file handle")
hPutChar fh c
+ when (fh /= stdout) (hClose fh)
return g