Hi again, Am Donnerstag, den 05.06.2008, 17:22 +0200 schrieb Joachim Breitner:
Hi,
for a program of mine (darcswatch[1]), a rather long running process is run at certain events (by cron, and by new emails). I want to achieve that: * Only one instance of the program runs at a time. * If new events come in while the program runs, it should re-run itself * There is information attached to the events (only one Bool ATM)
So I’d like to implement something with this, or a similar, interface:
======================================================================= module MyLocking where
-- | tries to get the lock. If it fails, notifies the running process -- to re-start itself afterwards, with the given information -- returns True if the lock was aquired lockOrMark :: Show a => FilePath -> a -> IO Bool
-- | release the lock. If new events have come in, they are returned -- in the list, and the lock is still kept. If the list is empty, -- the lock was successfully released. releaseLock :: Read a => FilePath -> IO [a] =======================================================================
I wrote a module that provides this API. It can be found here: http://darcs.nomeata.de/darcswatch/src/LockRestart.hs I use it for darcswatch, you can see the relevant change here: http://darcs.nomeata.de/cgi-bin/darcsweb.cgi?r=darcswatch;a=filediff;h=20080... Actually, since only the call to "or" in the third changed line from the bottom is special to darcswatch, this can be moved into LockRestart, so the change to the program is reduced to this: config <- read `fmap` readFile (confdir ++ "config") + + lockRestart (cOutput config) patchNew or True (do_work config) + +do_work config patchNew = do putStrLn "Reading repositories..." or even config <- read `fmap` readFile (confdir ++ "config") + + lockRestart (cOutput config) patchNew or True $ \patchNew -> do + putStrLn "Reading repositories..." if you prefer. Enjoy, Joachim Breitner -- Joachim Breitner e-Mail: mail@joachim-breitner.de Homepage: http://www.joachim-breitner.de ICQ#: 74513189 Jabber-ID: nomeata@joachim-breitner.de