diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-05-14 15:50:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-14 15:54:41 -0400 |
| commit | de08b16e830bc8dd73715bd2bbc7c69b42673ced (patch) | |
| tree | ebedfaac3b0c9ede3e08446ebb74d5465f2db20d /Utility | |
| parent | ffedbbee70d4f19dc89ca54d5fdc2277a5d5e867 (diff) | |
fix windows build
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. |