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