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.
{-# OPTIONS -W -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
{-# 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
--
--
-- GHC Driver program
--
argv' <- setTopDir argv
-- check whether TMPDIR is set in the environment
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)
IO.try (do dir <- getEnv "TMPDIR" -- fails if not set
writeIORef tmpdir dir)
-- read the package configuration
conf_file <- readIORef package_config
-- read the package configuration
conf_file <- readIORef package_config