X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverState.hs;fp=ghc%2Fcompiler%2Fmain%2FDriverState.hs;h=93729f2397ecebb744376051f775f8e7b04a31d5;hb=30d296f9e4426fdde48553c653e496e4a6cafaeb;hp=c6acf81483f1eb4de48cc800cf6aa45d8e0c3bd0;hpb=56ea17cad787925dd1eecd0355aba84f929bb1bc;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index c6acf81..93729f2 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.101 2004/03/05 15:09:37 stolz Exp $
+-- $Id: DriverState.hs,v 1.102 2004/03/24 10:50:35 simonmar Exp $
 --
 -- Settings for the driver
 --
@@ -211,6 +211,10 @@ GLOBAL_VAR(v_Framework_paths, [], [String])
 GLOBAL_VAR(v_Cmdline_frameworks, [], [String])
 #endif
 
+addToOrDeleteDirList :: IORef [String] -> String -> IO ()
+addToOrDeleteDirList ref ""   = writeIORef ref []
+addToOrDeleteDirList ref path = addToDirList ref path
+
 addToDirList :: IORef [String] -> String -> IO ()
 addToDirList ref path
   = do paths           <- readIORef ref