qualify comment

This commit is contained in:
Joey Hess 2014-06-09 13:48:44 -04:00
parent 1d4ba328e5
commit a59ac68c22

View file

@ -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