From: sewardj <unknown>
Date: Fri, 27 Oct 2000 15:11:37 +0000 (+0000)
Subject: [project @ 2000-10-27 15:11:37 by sewardj]
X-Git-Tag: Approximately_9120_patches~3478
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b5a57405244c3eb89e90c1aa7f4cc6c348f11266;p=ghc-hetmet.git

[project @ 2000-10-27 15:11:37 by sewardj]
Fix various platform-dependent bogons.
---

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