From 7f8c59418442bc0224b1b88f49e75458d190a64f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 9 Jun 2014 14:44:18 -0400 Subject: Ignore setsid failures. --- Utility/Daemon.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Utility') diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs index 39c42bf53..23d18d2b6 100644 --- a/Utility/Daemon.hs +++ b/Utility/Daemon.hs @@ -39,7 +39,7 @@ daemonize logfd pidfile changedirectory a = do checkalreadyrunning f = maybe noop (const alreadyRunning) =<< checkDaemon f child1 = do - _ <- createSession + _ <- tryIO createSession _ <- forkProcess child2 out child2 = do @@ -59,7 +59,7 @@ daemonize logfd pidfile changedirectory a = do foreground :: Fd -> Maybe FilePath -> IO () -> IO () foreground logfd pidfile a = do maybe noop lockPidFile pidfile - _ <- createSession + _ <- tryIO createSession redirLog logfd a exitImmediately ExitSuccess -- cgit v1.2.3