From 21fada263c689cfc39bba931748afc682a2fea9d Mon Sep 17 00:00:00 2001 From: John Millikin Date: Mon, 26 Apr 2010 17:01:15 +0000 Subject: [PATCH] Small tweak for first public version of GNU TLS bindings. --- Network/Protocol/XMPP/Handle.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Network/Protocol/XMPP/Handle.hs b/Network/Protocol/XMPP/Handle.hs index f39c1b7..2336c4c 100644 --- a/Network/Protocol/XMPP/Handle.hs +++ b/Network/Protocol/XMPP/Handle.hs @@ -46,10 +46,9 @@ liftTLS' io = do startTLS :: Handle -> ErrorT T.Text IO Handle startTLS (SecureHandle _ _) = E.throwError "Can't start TLS on a secure handle" -startTLS (PlainHandle h) = liftTLS' $ TLS.runClient $ do - TLS.setTransport $ TLS.transportHandle h +startTLS (PlainHandle h) = liftTLS' $ TLS.runClient (TLS.handleTransport h) $ do TLS.setPriority [TLS.X509] - TLS.setCredentials TLS.certificateCredentials + TLS.setCredentials =<< TLS.certificateCredentials TLS.handshake SecureHandle h `fmap` TLS.getSession -- 2.38.4