diff options
| -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 |