qualify comment
This commit is contained in:
parent
1d4ba328e5
commit
a59ac68c22
1 changed files with 2 additions and 2 deletions
|
@ -49,8 +49,8 @@ daemonize logfd pidfile changedirectory a = do
|
|||
nullfd <- openFd "/dev/null" ReadOnly Nothing defaultFileFlags
|
||||
redir nullfd stdInput
|
||||
redirLog logfd
|
||||
{- forkProcess masks async exceptions; unmask them inside
|
||||
- the action. -}
|
||||
{- In old versions of ghc, forkProcess masks async exceptions;
|
||||
- unmask them inside the action. -}
|
||||
wait =<< asyncWithUnmask (\unmask -> unmask a)
|
||||
out
|
||||
out = exitImmediately ExitSuccess
|
||||
|
|
Loading…
Reference in a new issue