From 920338dd48b07f9944287e89bcce64f039b86b52 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 23 Dec 2024 14:04:46 +0900
Subject: [PATCH] sending EcPointFormats from SH12

---
 tls/Network/TLS/Handshake/Server/ServerHello12.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tls/Network/TLS/Handshake/Server/ServerHello12.hs b/tls/Network/TLS/Handshake/Server/ServerHello12.hs
index 664eae6d4..6ac837d7e 100644
--- 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 $