diff --git a/lib/Network/Protocol/XMPP.hs b/lib/Network/Protocol/XMPP.hs
--- a/lib/Network/Protocol/XMPP.hs
+++ b/lib/Network/Protocol/XMPP.hs
@@ -62,6 +62,7 @@
 	-- ** Resuming sessions
 	, Session
 	, getSession
+	, sessionIsSecure
 	, runXMPP
 	) where
 
diff --git a/lib/Network/Protocol/XMPP/Handle.hs b/lib/Network/Protocol/XMPP/Handle.hs
--- a/lib/Network/Protocol/XMPP/Handle.hs
+++ b/lib/Network/Protocol/XMPP/Handle.hs
@@ -20,6 +20,7 @@
 	, startTLS
 	, hPutBytes
 	, hGetBytes
+	, handleIsSecure
 	) where
 
 import           Control.Monad (when)
@@ -69,3 +70,7 @@
 	when (pending == 0) (liftIO wait)
 	lazy <- TLS.getBytes n
 	return (Data.ByteString.concat (Data.ByteString.Lazy.toChunks lazy))
+
+handleIsSecure :: Handle -> Bool
+handleIsSecure PlainHandle{} = False
+handleIsSecure SecureHandle{} = True
diff --git a/lib/Network/Protocol/XMPP/Monad.hs b/lib/Network/Protocol/XMPP/Monad.hs
--- a/lib/Network/Protocol/XMPP/Monad.hs
+++ b/lib/Network/Protocol/XMPP/Monad.hs
@@ -26,6 +26,7 @@
 	
 	, getHandle
 	, getSession
+	, sessionIsSecure
 	
 	, readEvents
 	, getElement
@@ -139,6 +140,11 @@
 
 getHandle :: XMPP H.Handle
 getHandle = fmap sessionHandle getSession
+
+sessionIsSecure :: XMPP Bool
+sessionIsSecure = do
+	h <- getHandle
+	return (H.handleIsSecure h)
 
 liftTLS :: ErrorT Text IO a -> XMPP a
 liftTLS io = do
diff --git a/network-protocol-xmpp.cabal b/network-protocol-xmpp.cabal
--- a/network-protocol-xmpp.cabal
+++ b/network-protocol-xmpp.cabal
@@ -1,5 +1,5 @@
 name: network-protocol-xmpp
-version: 0.4.3
+version: 0.4.4
 license: GPL-3
 license-file: license.txt
 author: John Millikin <jmillikin@gmail.com>, Stephan Maka <stephan@spaceboyz.net>
@@ -21,7 +21,7 @@
 source-repository this
   type: bazaar
   location: https://john-millikin.com/branches/network-protocol-xmpp/0.4/
-  tag: network-protocol-xmpp_0.4.3
+  tag: network-protocol-xmpp_0.4.4
 
 library
   ghc-options: -Wall -O2
@@ -29,13 +29,13 @@
 
   build-depends:
       base >= 4.0 && < 5.0
-    , bytestring >= 0.9 && < 0.10
+    , bytestring >= 0.9
     , gnuidn >= 0.2 && < 0.3
-    , gnutls >= 0.1 && < 0.3
+    , gnutls >= 0.1.4 && < 0.3
     , gsasl >= 0.3 && < 0.4
     , libxml-sax >= 0.7 && < 0.8
     , monads-tf >= 0.1 && < 0.2
-    , network >= 2.2 && < 2.4
+    , network >= 2.2
     , text >= 0.10 && < 0.12
     , transformers >= 0.2
     , xml-types >= 0.3 && < 0.4