c70736cf19
define 2 capabilities for hello extensions and explicit IV. use hello extensions checking in decode / encode of clientHello
19 lines
416 B
Haskell
19 lines
416 B
Haskell
-- |
|
|
-- Module : Network.TLS.Cap
|
|
-- License : BSD-style
|
|
-- Maintainer : Vincent Hanquez <vincent@snarc.org>
|
|
-- Stability : experimental
|
|
-- Portability : unknown
|
|
--
|
|
|
|
module Network.TLS.Cap
|
|
( hasHelloExtensions
|
|
, hasExplicitBlockIV
|
|
) where
|
|
|
|
import Network.TLS.Struct
|
|
|
|
hasHelloExtensions, hasExplicitBlockIV :: Version -> Bool
|
|
|
|
hasHelloExtensions ver = ver >= TLS12
|
|
hasExplicitBlockIV ver = ver >= TLS11
|