diff options
Diffstat (limited to 'Utility')
| -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 2a2e0e08a..e715ecbe7 100644 --- a/Utility/Daemon.hs +++ b/Utility/Daemon.hs @@ -54,7 +54,6 @@ daemonize logfd pidfile changedirectory a = do wait =<< asyncWithUnmask (\unmask -> unmask a) out out = exitImmediately ExitSuccess -#endif {- To run an action that is normally daemonized in the forground. -} foreground :: Fd -> Maybe FilePath -> IO () -> IO () @@ -64,6 +63,7 @@ foreground logfd pidfile a = do redirLog logfd a exitImmediately ExitSuccess +#endif {- Locks the pid file, with an exclusive, non-blocking lock, - and leaves it locked on return. |