Fix permissions of pgf server error log.
This commit is contained in:
1 parent
3195979031
commit
7dbaae50a9
1 file changed
+1
-1
@@ -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 ()
|
||||
|
||||
Reference in new issue
Block a user