From b5a57405244c3eb89e90c1aa7f4cc6c348f11266 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 27 Oct 2000 15:11:37 +0000
Subject: [PATCH] [project @ 2000-10-27 15:11:37 by sewardj] Fix various
 platform-dependent bogons.

---
 ghc/compiler/main/DriverFlags.hs |    3 ++-
 ghc/compiler/main/TmpFiles.hs    |    5 +++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 0ce273b..9c6bf69 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.12 2000/10/27 14:46:37 simonmar Exp $
+-- $Id: DriverFlags.hs,v 1.13 2000/10/27 15:11:37 sewardj Exp $
 --
 -- Driver flags
 --
@@ -14,6 +14,7 @@ module DriverFlags where
 import PackageMaintenance
 import DriverState
 import DriverUtil
+import TmpFiles 	( v_TmpDir )
 import CmdLineOpts
 import Config
 import Util
diff --git a/ghc/compiler/main/TmpFiles.hs b/ghc/compiler/main/TmpFiles.hs
index cefb53e..c1d0f4f 100644
--- a/ghc/compiler/main/TmpFiles.hs
+++ b/ghc/compiler/main/TmpFiles.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.6 2000/10/27 14:56:00 sewardj Exp $
+-- $Id: TmpFiles.hs,v 1.7 2000/10/27 15:11:37 sewardj Exp $
 --
 -- Temporary file management
 --
@@ -12,7 +12,8 @@ module TmpFiles (
    initTempFileStorage,  -- :: IO ()
    cleanTempFiles,       -- :: IO ()
    newTempName,		 -- :: Suffix -> IO FilePath
-   addFilesToClean	 -- :: [FilePath] -> IO ()
+   addFilesToClean,	 -- :: [FilePath] -> IO ()
+   v_TmpDir
  ) where
 
 -- main
-- 
1.7.10.4