From b623cc81f48dbf7151309a9c8f752fdb6c2561b3 Mon Sep 17 00:00:00 2001
From: Harendra Kumar <harendra@composewell.com>
Date: Thu, 28 May 2026 13:36:58 +0530
Subject: [PATCH 1/2] Add GHC 9.10, 9.12 and 9.14 to CI

---
 .github/workflows/haskell.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml
index bb77f981..63852edd 100644
--- a/.github/workflows/haskell.yml
+++ b/.github/workflows/haskell.yml
@@ -35,7 +35,7 @@ jobs:
       fail-fast: false
       matrix:
         os:  [ 'ubuntu-latest', 'macOS-latest', 'windows-latest' ]
-        ghc: [ '9.4', '9.6', '9.8' ]
+        ghc: [ '9.4', '9.6', '9.8', '9.10', '9.12', '9.14' ]
 
     steps:
     - uses: actions/checkout@v4

From fb8a86200d28bcd4ebc1a83079981ba5c545d5b6 Mon Sep 17 00:00:00 2001
From: Harendra Kumar <harendra@composewell.com>
Date: Thu, 28 May 2026 13:12:40 +0530
Subject: [PATCH 2/2] Add a test case for setting DontFragment option

---
 tests/Network/SocketSpec.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/Network/SocketSpec.hs b/tests/Network/SocketSpec.hs
index 3d57bafc..cf78c9d7 100644
--- a/tests/Network/SocketSpec.hs
+++ b/tests/Network/SocketSpec.hs
@@ -101,6 +101,13 @@ spec = do
               getSocketOption sock UserTimeout `shouldReturn` 2000
               close sock
 
+    describe "DontFragment" $ do
+        it "can be set" $ do
+            sock <- socket AF_INET Stream defaultProtocol
+            when (isSupportedSocketOption DontFragment) $
+                setSocketOption sock DontFragment 1
+            close sock
+
     describe "getAddrInfo" $ do
         it "works for IPv4 address" $ do
             let hints = defaultHints { addrFlags = [AI_NUMERICHOST, AI_ADDRCONFIG] }