From 9225db6fad20a47d45d5712732e87eb581f01eb7 Mon Sep 17 00:00:00 2001
From: Tom McLaughlin <tom@mac1.lan>
Date: Thu, 14 Nov 2024 03:03:01 -0800
Subject: [PATCH] windows: fix Infinity -> maxBound for an Int

---
 sandwich-contexts/lib/Test/Sandwich/Contexts/UnixSocketPath.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sandwich-contexts/lib/Test/Sandwich/Contexts/UnixSocketPath.hs b/sandwich-contexts/lib/Test/Sandwich/Contexts/UnixSocketPath.hs
index e3a242df..c8fdac4c 100644
--- a/sandwich-contexts/lib/Test/Sandwich/Contexts/UnixSocketPath.hs
+++ b/sandwich-contexts/lib/Test/Sandwich/Contexts/UnixSocketPath.hs
@@ -17,7 +17,7 @@ import UnliftIO.Temporary
 -- | The longest allowed path for a Unix socket on the current system.
 maxUnixSocketLength :: Int
 #ifdef mingw32_HOST_OS
-maxUnixSocketLength = Infinity
+maxUnixSocketLength = maxBound
 #elif darwin_host_os
 maxUnixSocketLength = 103 -- macOS: 104 with null terminator
 #else