anchor.diff:                  |> Seq.tryPick Some
           }
   
  -        let getConnectionString namespaceName (client:AzureClient) = async {
  +        let getConnectionString namespaceName (client:SubscriptionClient) = async {
               let rule = client.ServiceBus.Namespaces.ListAuthorizationRules namespaceName |> Seq.find(fun rule -> rule.KeyName = "RootManageSharedAccessKey")
               return sprintf """Endpoint=sb://%s.servicebus.windows.net/;SharedAccessKeyName=RootManageSharedAccessKey;SharedAccessKey=%s""" namespaceName rule.PrimaryKey
           } 
  
positive.code:             return ns, connectionString
          }
  
          let deleteNamespace namespaceName (client:AzureClient) = async {
              let! _response = client.ServiceBus.Namespaces.DeleteAsync namespaceName
              do! client |> waitUntilState ((<>) "Removing") namespaceName
          }
  
negative.code:     }
  
  /// Azure publish settings record
  [<NoEquality; NoComparison; AutoSerializable(false)>]
  type PublishSettings = 
      { 
          /// Set of Azure subscriptions
  