[commit: packages/process] master: Fix warnings (f030349)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/process

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f0303495d28420cd990f10b724c7aaca9846a2e4/process

>---------------------------------------------------------------

commit f0303495d28420cd990f10b724c7aaca9846a2e4
Author: Michael Snoyman <michael at snoyman.com>
Date:   Sun Nov 13 11:41:32 2016 +0200

    Fix warnings


>---------------------------------------------------------------

f0303495d28420cd990f10b724c7aaca9846a2e4
 test/main.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/test/main.hs b/test/main.hs
index c47838e..be941f9 100644
--- a/test/main.hs
+++ b/test/main.hs
@@ -32,13 +32,13 @@ main = do
     putStrLn "Testing subdirectories"
 
     withCurrentDirectory "exes" $ do
-      res <- readCreateProcess (proc "./echo.bat" []) ""
-      unless (res == "parent\n") $ error $
-        "echo.bat with cwd failed: " ++ show res
+      res1 <- readCreateProcess (proc "./echo.bat" []) ""
+      unless (res1 == "parent\n") $ error $
+        "echo.bat with cwd failed: " ++ show res1
 
-      res <- readCreateProcess (proc "./echo.bat" []) { cwd = Just "subdir" } ""
-      unless (res == "child\n") $ error $
-        "echo.bat with cwd failed: " ++ show res
+      res2 <- readCreateProcess (proc "./echo.bat" []) { cwd = Just "subdir" } ""
+      unless (res2 == "child\n") $ error $
+        "echo.bat with cwd failed: " ++ show res2
 
     putStrLn "Tests passed successfully"