anchor.diff:              | true, s when s.NegotiationCompleted -> [ s ]
               | _ -> []
       
  -    member x.Shutdown(force) = 
  +    member __.Shutdown(force) =
           async { 
               let getCloseTask (k : KeyValuePair<_, IXmppClient>) = 
                   async {
  
positive.code:                     let jid = connectTask.Result
                      let bareId = jid.BareId
                      if xmppClient.StreamType.OnClientStream then 
                          let resources = clientConnections.GetOrAdd(bareId, fun b -> new ConcurrentDictionary<_, _>())
                          match resources.TryRemove(jid.Resource.Value, xmppClient) with
                          | true -> 
                              Log.Info(fun () -> L "removed client connection")
  
negative.code:     
      member x.RegisterIncommingConnection(xmppClient : IXmppClient) = 
          if stopToken.Token.IsCancellationRequested then failwith "Server already shut down!"
          pendingConnections.AddOrUpdate(xmppClient, xmppClient, fun _ _ ->
            failwithf "this instance is already pending? Cannot call RegisterIncommingConnection twice!") |> ignore
  
          xmppClient.Exited.ContinueWith(fun (t:Task<_>) -> x.MyClientExited xmppClient t.Result) |> ignore
          
  