windows: fix Infinity -> maxBound for an Int

codedownio · Nov 14, 2024 · 9225db6 · 9225db6
1 parent f021a38
commit 9225db6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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