From fbd5a67cba0eafc7e03e21092079a863bb52c82a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 12 Jun 2014 18:37:12 -0400
Subject: [PATCH] fix a test suite reversion on Windows

Forgot to pass gitEnv when running commands in the git queue on windows.
---
 Git/Queue.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Git/Queue.hs b/Git/Queue.hs
index 606a041574..2ec3a2b1e2 100644
--- a/Git/Queue.hs
+++ b/Git/Queue.hs
@@ -156,9 +156,9 @@ runAction repo action@(CommandAction {}) = do
 	-- Using xargs on Windows is problimatic, so just run the command
 	-- once per file (not as efficient.)
 	if null (getFiles action)
-		then void $ boolSystem "git" gitparams
+		then void $ boolSystemEnv "git" gitparams (gitEnv repo)
 		else forM_ (getFiles action) $ \f ->
-			void $ boolSystem "git" (gitparams ++ [f])
+			void $ boolSystemEnv "git" (gitparams ++ [f]) (gitEnv repo)
 #endif
   where
 	gitparams = gitCommandLine