-- | -- 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.Types hasHelloExtensions, hasExplicitBlockIV :: Version -> Bool hasHelloExtensions :: Version -> Bool hasHelloExtensions Version ver = Version ver forall a. Ord a => a -> a -> Bool >= Version SSL3 hasExplicitBlockIV :: Version -> Bool hasExplicitBlockIV Version ver = Version ver forall a. Ord a => a -> a -> Bool >= Version TLS11