Commit 2f876725 authored by Malcolm.Wallace's avatar Malcolm.Wallace
Browse files

fix scope errors in non-GHC branch of an #ifdef

parent 5b40d3f1
......@@ -350,11 +350,11 @@ rawSystemStdout' verbosity path args = do
withTempFile tmpDir ".cmd.stdout" $ \tmpName tmpHandle -> do
hClose tmpHandle
let quote name = "'" ++ name ++ "'"
exitCode <- system $ unwords (map quote (path:args)) ++ " >" ++ quote tmpName
exitcode <- system $ unwords (map quote (path:args)) ++ " >" ++ quote tmpName
unless (exitcode == ExitSuccess) $
debug verbosity $ path ++ " returned " ++ show exitcode
output <- readFile tmpName
length output `seq` return (output, exitCode)
length output `seq` return (output, exitcode)
#endif
-- | Like the unix xargs program. Useful for when we've got very long command
......
Markdown is supported
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