From dd58077add9b2bb7c09909a541c815d334278b07 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 20 Nov 2008 09:52:18 +0000
Subject: [PATCH] Fix permissions of pgf server error log.

---
 src/server/FastCGIUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/server/FastCGIUtils.hs b/src/server/FastCGIUtils.hs
index 6fef5112d..737bcd274 100644
--- a/src/server/FastCGIUtils.hs
+++ b/src/server/FastCGIUtils.hs
@@ -113,7 +113,7 @@ logError s = hPutStrLn stderr s
 
 stderrToFile :: FilePath -> IO ()
 stderrToFile file =
-    do let mode = ownerModes `unionFileModes` groupReadMode `unionFileModes` otherReadMode
+    do let mode = ownerReadMode `unionFileModes` ownerWriteMode `unionFileModes` groupReadMode `unionFileModes` otherReadMode
        fileFd <- openFd file WriteOnly (Just mode) (defaultFileFlags { append = True })
        dupTo fileFd stdError
        return ()