tls-extra 0.4.7 → 0.4.7.1

raw patch · 3 files changed

+21/−6 lines, 3 filesnew-uploaderPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Network/TLS/Extra/Certificate.hs +8/−4
• Network/TLS/Extra/Connection.hs +12/−1
• tls-extra.cabal +1/−1

@@ -39,7 +39,8 @@  #if defined(NOCERTVERIFY) -import System.IO (hPutStrLn, stderr)+import System.IO (hPutStrLn, stderr, hIsTerminalDevice)+import Control.Monad (when)  #endif @@ -59,9 +60,12 @@  - for now, print a big fat warning (better than nothing) and returns true  -} certificateVerifyChain_ :: [X509] -> IO TLSCertificateUsage certificateVerifyChain_ _ = do-	hPutStrLn stderr "****************** certificate verify chain doesn't yet work on your platform **********************"-	hPutStrLn stderr "please consider contributing to the certificate package to fix this issue"-	return CertificateUsageAccept+    wvisible <- hIsTerminalDevice stderr+    when wvisible $ do+        hPutStrLn stderr "tls-extra:Network.TLS.Extra.Certificate"+        hPutStrLn stderr "****************** certificate verify chain doesn't yet work on your platform **********************"+        hPutStrLn stderr "please consider contributing to the certificate package to fix this issue"+    return CertificateUsageAccept  #else certificateVerifyChain_ :: [X509] -> IO TLSCertificateUsage

@@ -20,8 +20,19 @@ import Network.Socket import Network.TLS --- | open a TCP client connection to a destination and port description (number or name)+-- | @connectionClient host port param rng@ opens a TCP client connection+-- to a destination host and port description (number or name). For+-- example: -- +-- @+-- import Network.TLS.Extra+-- import Crypto.Random+-- ...+--   conn <- (newGenIO::IO SystemRandom) >>= connectionClient 192.168.2.2 7777 defaultParams g+-- @+--+-- will make a new RNG (using system entropy) and connect to IP 192.168.2.2+-- on port 7777. connectionClient :: CryptoRandomGen g => String -> String -> TLSParams -> g -> IO (TLSCtx Handle) connectionClient s p params rng = do 	pn <- if and $ map isDigit $ p

@@ -1,5 +1,5 @@ Name:                tls-extra-Version:             0.4.7+Version:             0.4.7.1 Description:    a set of extra definitions, default values and helpers for tls. License:             BSD3