hs-tls/core/Network/TLS/Cap.hs

-- |
-- 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
add a cap file to differenciate protocol version capabilities. define 2 capabilities for hello extensions and explicit IV. use hello extensions checking in decode / encode of clientHello 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`
re-indent 2013-07-12 06:27:28 +00:00			`( hasHelloExtensions`
			`, hasExplicitBlockIV`
			`) where`
add a cap file to differenciate protocol version capabilities. define 2 capabilities for hello extensions and explicit IV. use hello extensions checking in decode / encode of clientHello 2010-09-26 07:46:09 +00:00
			`import Network.TLS.Struct`

			`hasHelloExtensions, hasExplicitBlockIV :: Version -> Bool`

hello extensions can be present since SSL3 2011-06-06 06:56:10 +00:00			`hasHelloExtensions ver = ver >= SSL3`
add a cap file to differenciate protocol version capabilities. define 2 capabilities for hello extensions and explicit IV. use hello extensions checking in decode / encode of clientHello 2010-09-26 07:46:09 +00:00			`hasExplicitBlockIV ver = ver >= TLS11`