diff options
| -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 |