diff options
| author | Inari Listenmaa <inari.listenmaa@gmail.com> | 2025-03-20 17:54:41 +0100 |
|---|---|---|
| committer | Inari Listenmaa <inari.listenmaa@gmail.com> | 2025-08-02 16:39:31 +0200 |
| commit | 155b9da861fc95e55ec3352e7beb45eba5f41812 (patch) | |
| tree | 4648649007345471ef552412e7fde85c1fe62d5e /src/server | |
| parent | ab0f09e9f7c7c47096c0667a5708f9d6b8cf312c (diff) | |
choose openFd based on version of unix
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/CGIUtils.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/server/CGIUtils.hs b/src/server/CGIUtils.hs index b593a2b07..0a04c3a6f 100644 --- a/src/server/CGIUtils.hs +++ b/src/server/CGIUtils.hs @@ -34,8 +34,13 @@ stderrToFile :: FilePath -> IO () stderrToFile file = do let mode = ownerReadMode<>ownerWriteMode<>groupReadMode<>otherReadMode (<>) = unionFileModes +#if MIN_VERSION_unix(2,8,0) flags = defaultFileFlags { append = True, creat = Just mode } fileFd <- openFd file WriteOnly flags +#else + flags = defaultFileFlags { append = True } + fileFd <- openFd file WriteOnly (Just mode) flags +#endif dupTo fileFd stdError return () #else |