Commit 60aa7481 authored by rrt's avatar rrt
Browse files

[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.
parent b3ee0636
{-# 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
-- --
...@@ -1131,8 +1131,10 @@ main = ...@@ -1131,8 +1131,10 @@ main =
argv' <- setTopDir argv argv' <- setTopDir argv
-- check whether TMPDIR is set in the environment -- check whether TMPDIR is set in the environment
#ifndef mingw32_TARGET_OS
IO.try (do dir <- getEnv "TMPDIR" -- fails if not set IO.try (do dir <- getEnv "TMPDIR" -- fails if not set
writeIORef tmpdir dir) writeIORef tmpdir dir)
#endif
-- read the package configuration -- read the package configuration
conf_file <- readIORef package_config conf_file <- readIORef package_config
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment