Commit df251f02 authored by Michael Hanus's avatar Michael Hanus
Browse files

Problem in IOExts.evalCmd for empty inputs fixed

parent 1258fb21
......@@ -51,7 +51,7 @@ evalCmd cmd args input = do
let tmpfile = "/tmp/PAKCS_evalCMD"++show pid
(hi,ho,he) <- execCmd (unwords (map wrapArg (cmd:args)) ++
" ; (echo $? > "++tmpfile++")")
hPutStrLn hi input
unless (null input) (hPutStrLn hi input)
hClose hi
outs <- hGetEOF ho
errs <- hGetEOF he
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment