From a59ac68c22fcbb6c79de8b17b4316bccadc58b7c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 9 Jun 2014 13:48:44 -0400
Subject: [PATCH] qualify comment

---
 Utility/Daemon.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Utility/Daemon.hs b/Utility/Daemon.hs
index e715ecbe7c..39c42bf53c 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