sending EcPointFormats from SH12

haskell-tls · Dec 24, 2024 · 920338d · 920338d
1 parent 2ac30a7
commit 920338d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tls/Network/TLS/Handshake/Server/ServerHello12.hs b/tls/Network/TLS/Handshake/Server/ServerHello12.hs
@@ -274,6 +274,9 @@ makeServerHello sparams ctx usedCipher mcred chExts session = do
         ticktExt
             | not resuming && useTicket = Just $ toExtensionRaw $ SessionTicket ""
             | otherwise = Nothing
+    let eccExt = case extensionLookup EID_EcPointFormats chExts of
+            Nothing -> Nothing
+            Just _ -> Just $ toExtensionRaw $ EcPointFormatsSupported [EcPointFormat_Uncompressed]
     let shExts =
             sharedHelloExtensions (serverShared sparams)
                 ++ catMaybes
@@ -282,6 +285,7 @@ makeServerHello sparams ctx usedCipher mcred chExts session = do
                     , protoExt
                     , sniExt
                     , ticktExt
+                    , eccExt
                     ]
     usingState_ ctx $ setVersion TLS12
     usingHState ctx $