diff options
Diffstat (limited to 'Utility/Daemon.hs')
-rw-r--r-- | Utility/Daemon.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs index 11aa57686..5d47be035 100644 --- a/Utility/Daemon.hs +++ b/Utility/Daemon.hs @@ -36,7 +36,7 @@ daemonize logfd pidfile changedirectory a = do _ <- forkProcess child1 out where - checkalreadyrunning f = maybe noop (const $ alreadyRunning) + checkalreadyrunning f = maybe noop (const alreadyRunning) =<< checkDaemon f child1 = do _ <- createSession |