From e0cd9776690c74aa1b346aa11615a75c862d7714 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 8 Aug 2012 14:18:02 -0400 Subject: make pid file directory --- Utility/Daemon.hs | 1 + 1 file changed, 1 insertion(+) 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 -- cgit v1.2.3