mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

qualify comment

Browse source
This commit is contained in:
Joey Hess 2014-06-09 13:48:44 -04:00
parent 1d4ba328e5
commit a59ac68c22
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Daemon.hs
View file

@ -49,8 +49,8 @@ daemonize logfd pidfile changedirectory a = do
nullfd <- openFd "/dev/null" ReadOnly Nothing defaultFileFlags nullfd <- openFd "/dev/null" ReadOnly Nothing defaultFileFlags
redir nullfd stdInput redir nullfd stdInput
redirLog logfd redirLog logfd
{- forkProcess masks async exceptions; unmask them inside {- In old versions of ghc, forkProcess masks async exceptions;
- the action. -} - unmask them inside the action. -}
wait =<< asyncWithUnmask (\unmask -> unmask a) wait =<< asyncWithUnmask (\unmask -> unmask a)
out out
out = exitImmediately ExitSuccess out = exitImmediately ExitSuccess