From bbf12458c7c4b783897851f7e0bddea54f2d984e Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 9 Sep 2024 19:44:49 +0200
Subject: [PATCH] use openFd from unix >= 2.8

---
 gf.cabal               | 2 +-
 src/server/CGIUtils.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gf.cabal b/gf.cabal
index 21093ae0b..a0b0c01dd 100644
--- a/gf.cabal
+++ b/gf.cabal
@@ -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