diff options
| -rw-r--r-- | ghc/compiler/main/DriverFlags.hs | 2 | ||||
| -rw-r--r-- | ghc/compiler/main/DriverState.hs | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs index a2ef2a1bf5..cc8b772011 100644 --- a/ghc/compiler/main/DriverFlags.hs +++ b/ghc/compiler/main/DriverFlags.hs @@ -259,7 +259,7 @@ static_flags = ) ) ------- Include/Import Paths ---------------------------------------- - , ( "i" , OptPrefix (addToDirList v_Import_paths) ) + , ( "i" , OptPrefix (addToOrDeleteDirList v_Import_paths) ) , ( "I" , Prefix (addToDirList v_Include_paths) ) ------- Libraries --------------------------------------------------- diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs index c6acf81483..93729f2397 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 |