diff options
| -rw-r--r-- | Utility/Daemon.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs index ba2b2c9c3..35b485983 100644 --- a/Utility/Daemon.hs +++ b/Utility/Daemon.hs @@ -46,6 +46,7 @@ daemonize logfd pidfile changedirectory a = do - Fails if the pid file is already locked by another process. -} lockPidFile :: FilePath -> IO () lockPidFile file = do + createDirectoryIfMissing True (parentDir file) fd <- openFd file ReadWrite (Just stdFileMode) defaultFileFlags locked <- catchMaybeIO $ setLock fd (WriteLock, AbsoluteSeek, 0, 0) fd' <- openFd newfile ReadWrite (Just stdFileMode) defaultFileFlags |