diff --git a/peyotls.cabal b/peyotls.cabal --- a/peyotls.cabal +++ b/peyotls.cabal @@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: peyotls -version: 0.0.0.15 +version: 0.0.0.16 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -281,7 +281,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/peyotls.git - tag: peyotls-0.0.0.15 + tag: peyotls-0.0.0.16 library hs-source-dirs: src diff --git a/src/Network/PeyoTLS/Extension.hs b/src/Network/PeyoTLS/Extension.hs --- a/src/Network/PeyoTLS/Extension.hs +++ b/src/Network/PeyoTLS/Extension.hs @@ -140,6 +140,8 @@ encode _ = error "Extension.encodeCN: not implemented" decode bs = case BS.unpack bs of [w1, w2] -> case fromIntegral w1 `shiftL` 8 .|. fromIntegral w2 of + (1 :: Word16) -> Right ECC.SEC_t163k1 + (14 :: Word16) -> Right ECC.SEC_t571r1 (23 :: Word16) -> Right ECC.SEC_p256r1 (24 :: Word16) -> Right ECC.SEC_p384r1 (25 :: Word16) -> Right ECC.SEC_p521r1