gnutls 0.1.6 → 0.2

raw patch · 3 files changed

+2/−28 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• gnutls.cabal +2/−2
• lib/Network/Protocol/TLS/GNU.hs +0/−23
• lib/Network/Protocol/TLS/GNU/Foreign.hs +0/−3

@@ -1,5 +1,5 @@ name: gnutls-version: 0.1.6+version: 0.2 license: GPL-3 license-file: license.txt author: John Millikin <jmillikin@gmail.com>@@ -26,7 +26,7 @@ source-repository this   type: git   location: https://john-millikin.com/code/haskell-gnutls/-  tag: haskell-gnutls_0.1.6+  tag: haskell-gnutls_0.2  library   hs-source-dirs: lib

@@ -36,10 +36,6 @@ 	, Credentials 	, setCredentials 	, certificateCredentials-	-	, Prioritised-	, setPriority-	, CertificateType (..) 	) where  import           Control.Applicative (Applicative, pure, (<*>))@@ -242,25 +238,6 @@ 	checkRC rc 	fp <- liftIO $ F.newForeignPtr F.gnutls_certificate_free_credentials_funptr ptr 	return $ Credentials (F.CredentialsType 1) fp--class Prioritised a where-	priorityInt :: a -> F.CInt-	priorityProc :: a -> F.Session -> F.Ptr F.CInt -> IO F.ReturnCode--data CertificateType = X509 | OpenPGP-	deriving (Show)--instance Prioritised CertificateType where-	priorityProc = const F.gnutls_certificate_type_set_priority-	priorityInt x = case x of-		X509 -> 1-		OpenPGP -> 2--setPriority :: Prioritised a => [a] -> TLS ()-setPriority xs = do-	let fake = head $ [undefined] ++ xs-	rc <- withSession $ F.withArray0 0 (map priorityInt xs) . priorityProc fake-	checkRC rc  withSession :: (F.Session -> IO a) -> TLS a withSession io = do

@@ -195,9 +195,6 @@ foreign import ccall safe "gnutls_certificate_type_list" 	gnutls_certificate_type_list :: IO (Ptr CertificateType) -foreign import ccall safe "gnutls_certificate_type_set_priority"-	gnutls_certificate_type_set_priority :: Session -> Ptr CInt -> IO ReturnCode- -- }}}  -- Credentials {{{