From 155b9da861fc95e55ec3352e7beb45eba5f41812 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 20 Mar 2025 17:54:41 +0100
Subject: [PATCH] choose openFd based on version of unix

---
 src/server/CGIUtils.hs | 5 +++++
 1 file changed, 5 insertions(+)

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