19 lines
424 B
Haskell
19 lines
424 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 >= SSL3
|
|
hasExplicitBlockIV ver = ver >= TLS11
|