Commit 30d296f9 authored by simonmar's avatar simonmar

[project @ 2004-03-24 10:50:34 by simonmar]

-i on its own didn't delete the list of search paths as advertised.
parent 56ea17ca
......@@ -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 ---------------------------------------------------
......
-----------------------------------------------------------------------------
-- $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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment