From 5bc38af83296b071d8418d4a06014316535a4dda Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace" <Malcolm.Wallace@cs.york.ac.uk>
Date: Wed, 14 May 2008 11:25:30 +0000
Subject: [PATCH] fix scope errors in non-GHC branch of an #ifdef
---
Distribution/Simple/Utils.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Distribution/Simple/Utils.hs b/Distribution/Simple/Utils.hs
index 72e45fefa2..1fbe12fcb9 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
--
GitLab