Simplify datatype XmppTlsError.

source/Network/Xmpp/Tls.hs

@@ -184,9 +184,7 @@ wrapExceptions :: IO a -> IO (Either XmppFailure a)
 wrapExceptions f = Ex.catches (liftM Right $ f)
                  [ Ex.Handler $ return . Left . XmppIOException
                  , Ex.Handler $ wrap . XmppTlsError
-                 , Ex.Handler $ wrap . XmppTlsConnectionNotEstablished
+                 , Ex.Handler $ wrap . XmppTlsException
-                 , Ex.Handler $ wrap . XmppTlsTerminated
-                 , Ex.Handler $ wrap . XmppTlsHandshakeFailed
                  , Ex.Handler $ return . Left
                  ]
   where

source/Network/Xmpp/Types.hs

@@ -532,9 +532,7 @@ data StreamErrorInfo = StreamErrorInfo
     } deriving (Show, Eq)
 
 data XmppTlsError = XmppTlsError TLSError
-                  | XmppTlsConnectionNotEstablished TLSException
+                  | XmppTlsException TLSException
-                  | XmppTlsTerminated TLSException
-                  | XmppTlsHandshakeFailed TLSException
                     deriving (Show, Eq, Typeable)
 
 -- | Signals an XMPP stream error or another unpredicted stream-related