From a1b15fd402f88902f9cb29275e3a429f17261be8 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 11 Dec 2000 15:26:00 +0000
Subject: [PATCH] [project @ 2000-12-11 15:26:00 by sewardj] More driver
 straightening-out.

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

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 924f29b..b04326a 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.32 2000/12/11 12:30:58 rrt Exp $
+-- $Id: DriverFlags.hs,v 1.33 2000/12/11 15:26:00 sewardj Exp $
 --
 -- Driver flags
 --
@@ -429,7 +429,7 @@ dynamic_flags = [
 
 	-- the rest of the -f* and -fno-* flags
   ,  ( "fno-", 		PrefixPred (\f -> isFFlag f) (\f -> unSetDynFlag (getFFlag f)) )
-  ,  ( "f".		PrefixPred (\f -> isFFlag f) (\f -> setDynFlag (getFFlag f)) )
+  ,  ( "f",		PrefixPred (\f -> isFFlag f) (\f -> setDynFlag (getFFlag f)) )
  ]
 
 -- these -f<blah> flags can all be reversed with -fno-<blah>
diff --git a/ghc/compiler/main/TmpFiles.hs b/ghc/compiler/main/TmpFiles.hs
index 823b79c..5bd5e59 100644
--- a/ghc/compiler/main/TmpFiles.hs
+++ b/ghc/compiler/main/TmpFiles.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.13 2000/12/11 14:42:21 sewardj Exp $
+-- $Id: TmpFiles.hs,v 1.14 2000/12/11 15:26:00 sewardj Exp $
 --
 -- Temporary file management
 --
@@ -19,6 +19,7 @@ module TmpFiles (
 -- main
 import Config
 import Util
+import DriverUtil
 
 -- hslibs
 import Exception
@@ -75,8 +76,3 @@ newTempName extn = do
 
 addFilesToClean :: [FilePath] -> IO ()
 addFilesToClean files = mapM_ (add v_FilesToClean) files
-
-add :: IORef [a] -> a -> IO ()
-add var x = do
-  xs <- readIORef var
-  writeIORef var (x:xs)
-- 
1.7.10.4