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