use openFd from unix >= 2.8

2026-05-19 16:12:52 -06:00 · 2024-09-09 19:44:49 +02:00
parent b914a25de3
commit bbf12458c7
2 changed files with 3 additions and 3 deletions
--- a/src/server/CGIUtils.hs
+++ b/src/server/CGIUtils.hs
@@ -34,8 +34,8 @@ stderrToFile :: FilePath -> IO ()
 stderrToFile file =
    do let mode = ownerReadMode<>ownerWriteMode<>groupReadMode<>otherReadMode
           (<>) = unionFileModes
-           flags = defaultFileFlags { append = True }
-       fileFd <- openFd file WriteOnly (Just mode) flags
+           flags = defaultFileFlags { append = True, creat = Just mode }
+       fileFd <- openFd file WriteOnly flags
       dupTo fileFd stdError
       return ()
 #else