Disabled broken code

1 files changed, 4 insertions, 0 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index 64d34ff6..b812e584 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -267,8 +267,12 @@ newConn state k addr outchan = do
     atomically $ modifyTVar' (keyToChan state)
         $ Map.insert k Conn { connChan = outchan
                             , auxAddr  = addr }
+    {-
+    -- DISABLED FOR NOW
+    -- (probably is terminating a thread via exception)
     when (isPeerKey k)
         $ sendProbesAndSolicitations state k addr outchan
+    -}
 
 eofConn state k = atomically $ modifyTVar' (keyToChan state) $ Map.delete k