diff --git a/Emulsion/Emulsion.fsproj b/Emulsion/Emulsion.fsproj index 869d326b..2cd7b303 100644 --- a/Emulsion/Emulsion.fsproj +++ b/Emulsion/Emulsion.fsproj @@ -26,6 +26,6 @@ - + \ No newline at end of file diff --git a/Emulsion/Xmpp/XmppClient.fs b/Emulsion/Xmpp/XmppClient.fs index 60c1b17d..0a67cd09 100644 --- a/Emulsion/Xmpp/XmppClient.fs +++ b/Emulsion/Xmpp/XmppClient.fs @@ -59,7 +59,7 @@ let run (settings: XmppSettings) (client: XmppClient) (onMessage: Message -> uni client.add_Message handler client.add_ConnectionFailed connectionFailedHandler - client.Connect() + do! Async.AwaitTask(client.ConnectAsync token) do! Async.AwaitTask tcs.Task finally