diff options
| -rw-r--r-- | src/Grasp/Interpreter.hs | 2 |
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 |