diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-06-09 13:48:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-06-09 13:48:44 -0400 |
| commit | c9e8ad671de1da7e75d45973109d223c9d4e8e81 (patch) | |
| tree | 5131aa72f7e8c18d0f789a2cee5f45f52eefdf3b /Utility/Daemon.hs | |
| parent | 6438eeafd27f6bd4849df4e4af4307ec2f0d1764 (diff) | |
qualify comment
Diffstat (limited to 'Utility/Daemon.hs')
| -rw-r--r-- | Utility/Daemon.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs index e715ecbe7..39c42bf53 100644 --- a/Utility/Daemon.hs +++ b/Utility/Daemon.hs @@ -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 |