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
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>