diff --git a/Distribution/Simple/Utils.hs b/Distribution/Simple/Utils.hs index 72e45fefa243cfd35fa370138b5f35b60634b8fa..1fbe12fcb959e1d9b47edb792925a294e36acfda 100644 --- a/Distribution/Simple/Utils.hs +++ b/Distribution/Simple/Utils.hs @@ -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