diff --git a/gnutls.cabal b/gnutls.cabal
--- a/gnutls.cabal
+++ b/gnutls.cabal
@@ -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
diff --git a/lib/Network/Protocol/TLS/GNU.hs b/lib/Network/Protocol/TLS/GNU.hs
--- a/lib/Network/Protocol/TLS/GNU.hs
+++ b/lib/Network/Protocol/TLS/GNU.hs
@@ -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
diff --git a/lib/Network/Protocol/TLS/GNU/Foreign.hs b/lib/Network/Protocol/TLS/GNU/Foreign.hs
--- a/lib/Network/Protocol/TLS/GNU/Foreign.hs
+++ b/lib/Network/Protocol/TLS/GNU/Foreign.hs
@@ -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 {{{