From b6a1b3ed14dba9df506445f2bf2b96a0e495662c Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sat, 13 Aug 2011 07:56:17 +0100 Subject: [PATCH] misc cleanup --- Network/TLS/Cipher.hs | 1 + Network/TLS/Core.hs | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Network/TLS/Cipher.hs b/Network/TLS/Cipher.hs index 1999379..4572779 100644 --- a/Network/TLS/Cipher.hs +++ b/Network/TLS/Cipher.hs @@ -1,4 +1,5 @@ {-# OPTIONS_HADDOCK hide #-} +{-# LANGUAGE ExistentialQuantification #-} -- | -- Module : Network.TLS.Cipher -- License : BSD-style diff --git a/Network/TLS/Core.hs b/Network/TLS/Core.hs index 5925cfa..2a40c53 100644 --- a/Network/TLS/Core.hs +++ b/Network/TLS/Core.hs @@ -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