From e0cd9776690c74aa1b346aa11615a75c862d7714 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 8 Aug 2012 14:18:02 -0400 Subject: [PATCH] make pid file directory --- Utility/Daemon.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs index ba2b2c9c3c..35b485983c 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