yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

misc cleanup

Browse source
This commit is contained in:
Vincent Hanquez 2011-08-13 07:56:17 +01:00
parent e4a4d99528
commit b6a1b3ed14
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Network/TLS/Cipher.hs
View file

@ -1,4 +1,5 @@
{-# OPTIONS_HADDOCK hide #-}
{-# LANGUAGE ExistentialQuantification #-}
-- |
-- Module : Network.TLS.Cipher
-- License : BSD-style

4
Network/TLS/Core.hs
View file

@ -94,7 +94,7 @@ data TLSParams = TLSParams
, pUseSecureRenegotiation :: Bool -- notify that we want to use secure renegotation
, pCertificates :: [(X509, Maybe PrivateKey)] -- ^ the cert chain for this context with the associated keys if any.
, pLogging :: TLSLogging -- ^ callback for logging
, onCertificatesRecv :: ([X509] -> IO TLSCertificateUsage) -- ^ callback to verify received cert chain.
, onCertificatesRecv :: [X509] -> IO TLSCertificateUsage -- ^ callback to verify received cert chain.
}
defaultLogging :: TLSLogging
@ -133,7 +133,7 @@ data TLSCtx = TLSCtx
{ ctxHandle :: Handle -- ^ return the handle associated with this context
, ctxParams :: TLSParams
, ctxState :: MVar TLSState
, ctxEOF_ :: IORef Bool -- ^ is the handle as EOFed or not.
, ctxEOF_ :: IORef Bool -- ^ is the handle has EOFed or not.
}
ctxEOF :: MonadIO m => TLSCtx -> m Bool