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

fix a minor fd leak

Browse source
This commit is contained in:
Joey Hess 2013-05-27 16:48:41 -04:00
parent 853ec68253
commit edc3bf2347
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Daemon.hs
View file

@ -93,7 +93,7 @@ checkDaemon pidfile = do
Just fd -> do Just fd -> do
locked <- getLock fd (ReadLock, AbsoluteSeek, 0, 0) locked <- getLock fd (ReadLock, AbsoluteSeek, 0, 0)
p <- readish <$> readFile pidfile p <- readish <$> readFile pidfile
return $ check locked p closeFd fd `after` return (check locked p)
Nothing -> return Nothing Nothing -> return Nothing
where where
check Nothing _ = Nothing check Nothing _ = Nothing