diff options
| -rw-r--r-- | Utility/Daemon.hs | 2 |
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 |