summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Utility/Daemon.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs
index e1cd25088..ad0950de2 100644
--- a/Utility/Daemon.hs
+++ b/Utility/Daemon.hs
@@ -93,7 +93,7 @@ checkDaemon pidfile = do
Just fd -> do
locked <- getLock fd (ReadLock, AbsoluteSeek, 0, 0)
p <- readish <$> readFile pidfile
- return $ check locked p
+ closeFd fd `after` return (check locked p)
Nothing -> return Nothing
where
check Nothing _ = Nothing