From bbf90aee452e6aed5f71a1bf7195a34c42327b92 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Fri, 4 May 2012 12:10:24 +0200
Subject: [PATCH] protect xmppKillConnection from exceptions

---
 src/Network/XMPP/Monad.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Network/XMPP/Monad.hs b/src/Network/XMPP/Monad.hs
index d3a1108..163d091 100644
--- a/src/Network/XMPP/Monad.hs
+++ b/src/Network/XMPP/Monad.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Network.XMPP.Monad where
@@ -135,7 +136,7 @@ xmppNewSession action = do
 xmppKillConnection :: XMPPConMonad ()
 xmppKillConnection = do
     cc <- gets sCloseConnection
-    liftIO cc
+    void . liftIO $ (Ex.try cc :: IO (Either Ex.SomeException ()))
     put xmppZeroConState
 
 xmppSendIQ' iqID to tp lang body = do