From bbf12458c7c4b783897851f7e0bddea54f2d984e Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Mon, 9 Sep 2024 19:44:49 +0200 Subject: use openFd from unix >= 2.8 --- src/server/CGIUtils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/server') 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 -- cgit v1.2.3