mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add a pid file

Browse source 
Writes pid to a file. Is supposed to take an exclusive lock, but that's not
working, and it's too late for me to understand why.
This commit is contained in:
Joey Hess 2012-06-11 01:20:19 -04:00
parent d5884388b0
commit 0b3e2bed78
3 changed files with 37 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Watch.hs
View file

@ -67,7 +67,8 @@ start foreground = notBareRepo $ withStateMVar $ \st -> do
liftIO $ watch st
else do
logfd <- liftIO . openLog =<< fromRepo gitAnnexLogFile
liftIO $ daemonize logfd False $ watch st
pidfile <- fromRepo gitAnnexPidFile
liftIO $ daemonize logfd (Just pidfile) False $ watch st
stop
watch :: MVar Annex.AnnexState -> IO ()