msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Fix permissions of pgf server error log.

Browse Source
This commit is contained in:
bjorn
2008-11-20 09:52:18 +00:00
parent 7181e8540a
commit dd58077add
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/server/FastCGIUtils.hs
View File

@@ -113,7 +113,7 @@ logError s = hPutStrLn stderr s
stderrToFile :: FilePath -> IO () stderrToFile :: FilePath -> IO ()
stderrToFile file = 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 }) fileFd <- openFd file WriteOnly (Just mode) (defaultFileFlags { append = True })
dupTo fileFd stdError dupTo fileFd stdError
return () return ()