From 049b1e125c127ebb8bbe567e5efbe75b095b68bd Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 14 Feb 2014 14:16:59 -0400
Subject: fix windows env hack

---
 git-annex.hs | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'git-annex.hs')

diff --git a/git-annex.hs b/git-annex.hs
index 2174965fd..a96dd8cbd 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -32,16 +32,18 @@ main = do
 	run ps n
 		| isshell n = CmdLine.GitAnnexShell.run ps
 		| otherwise =
-#ifdef WITH_TESTSUITE
-			case ps of
-				("test":ps') -> Test.main ps'
-				_ -> CmdLine.GitAnnex.run ps
-#else
 #ifdef mingw32_HOST_OS
-			winEnv CmdLine.GitAnnex.run ps
+			winEnv gitannex ps
 #else
+			gitannex ps
 #endif
-			CmdLine.GitAnnex.run ps
+	gitannex ps = 
+#ifdef WITH_TESTSUITE
+		case ps of
+			("test":ps') -> Test.main ps'
+			_ -> CmdLine.GitAnnex.run ps
+#else
+		CmdLine.GitAnnex.run ps
 #endif
 	isshell n = takeFileName n == "git-annex-shell"
 
@@ -61,13 +63,14 @@ winEnv a ps = go =<< getEnv "HOME"
 	go (Just _) = a ps
 	go Nothing = do
 		home <- myHomeDir
+		putStrLn $ "** Windows hack; overrideing HOME to " ++ home
 		e <- getEnvironment
 		let eoverride =
 			[ ("HOME", home)
 			, ("CYGWIN", "nodosfilewarning")
 			]
 		cmd <- readProgramFile
-		(_, _, _, proc) <- createProcess (proc cmd ps)
+		(_, _, _, pid) <- createProcess (proc cmd ps)
 			{ env = Just $ e ++ eoverride }
-		exitWith =<< waitForProcess proc
+		exitWith =<< waitForProcess pid
 #endif
-- 
cgit v1.2.3