diff options
Diffstat (limited to 'Utility/Daemon.hs')
| -rw-r--r-- | Utility/Daemon.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |