) )
------- 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
--
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