2010-09-26 07:46:09 +00:00
|
|
|
-- |
|
|
|
|
-- 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
|
|
|
|
|
2011-06-06 06:56:10 +00:00
|
|
|
hasHelloExtensions ver = ver >= SSL3
|
2010-09-26 07:46:09 +00:00
|
|
|
hasExplicitBlockIV ver = ver >= TLS11
|