fix windows build
This commit is contained in:
parent
85e9e8c0cf
commit
740de08461
2 changed files with 2 additions and 2 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue