diff options
| author | Inari Listenmaa <inari.listenmaa@gmail.com> | 2024-09-09 19:44:49 +0200 |
|---|---|---|
| committer | Inari Listenmaa <inari.listenmaa@gmail.com> | 2025-08-02 16:39:31 +0200 |
| commit | bbf12458c7c4b783897851f7e0bddea54f2d984e (patch) | |
| tree | 016697f7ff8f8e0c6338397129410013d634420f | |
| parent | b914a25de326dd937e3a1d05f4eefb46af6da7b4 (diff) | |
use openFd from unix >= 2.8
| -rw-r--r-- | gf.cabal | 2 | ||||
| -rw-r--r-- | src/server/CGIUtils.hs | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -347,7 +347,7 @@ library else build-depends: terminfo >=0.4.0 && < 0.5, - unix >= 2.7.2 && < 2.8 + unix >= 2.8 if impl(ghc>=8.2) ghc-options: -fhide-source-paths diff --git a/src/server/CGIUtils.hs b/src/server/CGIUtils.hs index 3c5ce2274..b593a2b07 100644 --- 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 |