misc cleanup
This commit is contained in:
parent
e4a4d99528
commit
b6a1b3ed14
2 changed files with 3 additions and 2 deletions
|
@ -1,4 +1,5 @@
|
||||||
{-# OPTIONS_HADDOCK hide #-}
|
{-# OPTIONS_HADDOCK hide #-}
|
||||||
|
{-# LANGUAGE ExistentialQuantification #-}
|
||||||
-- |
|
-- |
|
||||||
-- Module : Network.TLS.Cipher
|
-- Module : Network.TLS.Cipher
|
||||||
-- License : BSD-style
|
-- License : BSD-style
|
||||||
|
|
|
@ -94,7 +94,7 @@ data TLSParams = TLSParams
|
||||||
, pUseSecureRenegotiation :: Bool -- notify that we want to use secure renegotation
|
, 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.
|
, pCertificates :: [(X509, Maybe PrivateKey)] -- ^ the cert chain for this context with the associated keys if any.
|
||||||
, pLogging :: TLSLogging -- ^ callback for logging
|
, 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
|
defaultLogging :: TLSLogging
|
||||||
|
@ -133,7 +133,7 @@ data TLSCtx = TLSCtx
|
||||||
{ ctxHandle :: Handle -- ^ return the handle associated with this context
|
{ ctxHandle :: Handle -- ^ return the handle associated with this context
|
||||||
, ctxParams :: TLSParams
|
, ctxParams :: TLSParams
|
||||||
, ctxState :: MVar TLSState
|
, 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
|
ctxEOF :: MonadIO m => TLSCtx -> m Bool
|
||||||
|
|
Loading…
Reference in a new issue