From d3326c8bc9d959b6aa839c0cb41e8411e28414e5 Mon Sep 17 00:00:00 2001 From: Friedrich von Never Date: Sun, 7 Jul 2019 23:39:54 +0700 Subject: [PATCH] Remove pause from the old XMPP reconnection code (#29) --- Emulsion/Xmpp/XmppClient.fs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/Emulsion/Xmpp/XmppClient.fs b/Emulsion/Xmpp/XmppClient.fs index 535f281f..ea46ede2 100644 --- a/Emulsion/Xmpp/XmppClient.fs +++ b/Emulsion/Xmpp/XmppClient.fs @@ -1,9 +1,5 @@ module Emulsion.Xmpp.XmppClient -open System -open System.Threading -open System.Xml.Linq - open SharpXMPP open SharpXMPP.XMPP @@ -12,8 +8,7 @@ open Emulsion open Emulsion.Settings let private connectionFailedHandler = XmppConnection.ConnectionFailedHandler(fun s e -> - printfn "%s" e.Message - Thread.Sleep(TimeSpan.FromSeconds(30.0)) // TODO[Friedrich]: Configurable timeout. + printfn "XMPP Connection Failed: %s" e.Message ()) let private signedInHandler (settings : XmppSettings) (client : XmppClient) = XmppConnection.SignedInHandler(fun s e ->