From 87f00552020548246bb10cd38a4343ea54d571e1 Mon Sep 17 00:00:00 2001
From: Tamar Christina <tamar@zhox.com>
Date: Sun, 14 Jan 2024 08:12:41 +0000
Subject: [PATCH 1/2] win32: drop numeric underscore

---
 System/Win32/NamedPipes.hsc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/System/Win32/NamedPipes.hsc b/System/Win32/NamedPipes.hsc
index 2fe02cf..92455cc 100644
--- a/System/Win32/NamedPipes.hsc
+++ b/System/Win32/NamedPipes.hsc
@@ -6,7 +6,6 @@
 {-# LANGUAGE CPP                #-}
 {-# LANGUAGE BangPatterns       #-}
 {-# LANGUAGE MultiWayIf         #-}
-{-# LANGUAGE NumericUnderscores #-}
 
 -- | For full details on the Windows named pipes API see
 -- <https://docs.microsoft.com/en-us/windows/desktop/ipc/named-pipes>
@@ -261,7 +260,7 @@ connect fileName dwDesiredAccess dwSharedMode lpSecurityAttributes dwCreationDis
             $ throwIO e
           -- all pipe instance were busy, wait 20s and retry; we ignore the
           -- result
-          _ <- waitNamedPipe fileName 5_000
+          _ <- waitNamedPipe fileName 5000
           connectLoop
 
         Right h -> pure h

From 3e9dc1ed63fe2fcf19a9958d4ec822729e3adc39 Mon Sep 17 00:00:00 2001
From: Tamar Christina <tamar@zhox.com>
Date: Sun, 14 Jan 2024 08:20:15 +0000
Subject: [PATCH 2/2] win32: fix version bound on compat

---
 include/tlhelp32_compat.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/include/tlhelp32_compat.h b/include/tlhelp32_compat.h
index 552fc85..309f5be 100644
--- a/include/tlhelp32_compat.h
+++ b/include/tlhelp32_compat.h
@@ -4,7 +4,7 @@
  * tlhelp32.h is not included in MinGW, which was shipped with the 32-bit
  * Windows version of GHC prior to the 7.10.3 release.
  */
-#if __GLASGOW_HASKELL__ > 708
+#if __GLASGOW_HASKELL__ >= 710
 #else
 // Declarations from tlhelp32.h that Win32 requires
 #include <windows.h>