From 60aa7481be0f10c9c03a49d0877f926302b3db8c Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Wed, 11 Oct 2000 10:17:32 +0000
Subject: [PATCH] [project @ 2000-10-11 10:17:32 by rrt] Don't read TMPDIR
 from the environment under mingwin; avoids / being turned
 into \ in the env var, which then causes problems when this
 value is written to a shell file and then executed.

---
 ghc/driver/Main.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index c80e1b6..2c5c5af 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -W -fno-warn-incomplete-patterns #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.65 2000/10/09 09:19:16 simonmar Exp $
+-- $Id: Main.hs,v 1.66 2000/10/11 10:17:32 rrt Exp $
 --
 -- GHC Driver program
 --
@@ -1131,8 +1131,10 @@ main =
    argv'  <- setTopDir argv
 
 	-- check whether TMPDIR is set in the environment
+#ifndef mingw32_TARGET_OS
    IO.try (do dir <- getEnv "TMPDIR" -- fails if not set
 	      writeIORef tmpdir dir)
+#endif
 
 	-- read the package configuration
    conf_file <- readIORef package_config
-- 
1.7.10.4