GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki 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 3195979031
commit 7dbaae50a9
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 ()