anchor.diff:          |> task
   
       member __.CountByExpressionAsync (exp): Task<int> = 
  -        failwith "Not implemented"
  +        exp 
  +        |> ExpressionParser.parse 
  +        |> countBySelector 
  +        <| client 
  +        |> task
   
       member __.CountBySelectorAsync (dict): Task<int> = 
           dict
  
positive.code:         member val JsonConverter: JsonConverter = null with get, set
          member val Warning: EventHandler<string> = null with get, set
  
  open Types
  open System.Collections
  
  type Client<'doctype when 'doctype :> CouchDoc>(config: Configuration) = 
      let maybeAddConverter (converter: JsonConverter option) (props: CouchProps) =
  
negative.code:         |> task
  
      member __.FindByExpressionAsync (exp, ?options): Task<IEnumerable<'doctype>> = 
          let opts = 
              options 
              |> Option.map findOptionsToFs 
              |> Option.defaultValue []
  
          exp 
          |> ExpressionParser.parse 
          |> find opts 
          <| client 
          |> Async.MapSeq toDoc 
          |> task
  
      member __.FindBySelectorAsync (dict, ?options): Task<IEnumerable<'doctype>> = 
          let opts = 
  