module Network.HTTP2.TLS.Supported where

import Data.Default.Class (def)
import Network.TLS hiding (HostName)
import Network.TLS.Extra

strongSupported :: Supported
strongSupported :: Supported
strongSupported =
    forall a. Default a => a
def -- TLS.Supported
        { supportedVersions :: [Version]
supportedVersions = [Version
TLS13, Version
TLS12]
        , supportedCiphers :: [Cipher]
supportedCiphers = [Cipher]
ciphersuite_strong
        , supportedCompressions :: [Compression]
supportedCompressions = [Compression
nullCompression]
        , supportedSecureRenegotiation :: Bool
supportedSecureRenegotiation = Bool
True
        , supportedClientInitiatedRenegotiation :: Bool
supportedClientInitiatedRenegotiation = Bool
False
        , supportedSession :: Bool
supportedSession = Bool
True
        , supportedFallbackScsv :: Bool
supportedFallbackScsv = Bool
True
        , supportedGroups :: [Group]
supportedGroups = [Group
X25519, Group
P256, Group
P384]
        }