From f8f384a8cc7212284379d109f6dc78c6188f3f18 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Thu, 28 Mar 2024 11:51:17 -0400
Subject: [PATCH] Fix type of _get_osfhandle foreign import
Fixes #24601.
---
compiler/GHC/Runtime/Utils.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/GHC/Runtime/Utils.hs b/compiler/GHC/Runtime/Utils.hs
index 083d59299063..0c882c47c1c8 100644
--- a/compiler/GHC/Runtime/Utils.hs
+++ b/compiler/GHC/Runtime/Utils.hs
@@ -29,7 +29,7 @@ foreign import ccall "io.h _close"
c__close :: CInt -> IO CInt
foreign import ccall unsafe "io.h _get_osfhandle"
- _get_osfhandle :: CInt -> IO CInt
+ _get_osfhandle :: CInt -> IO CIntPtr
runWithPipesPOSIX :: (CreateProcess -> IO ProcessHandle)
-> FilePath -> [String] -> [String] -> IO (ProcessHandle, Handle, Handle)
--
GitLab