anchor.diff:      onWarning: (IEvent<EventHandler<string>,string> -> unit) option
   }
   
  +type ViewProps = private {
  +    map: string option
  +    reduce: string option
  +}
  +
   let private defaultCouchProps() = {
           username = None
           password = None
  
positive.code:       Rev = r.Rev
        Ok = Option.ofNullable r.Ok |> Option.defaultValue false }
  
  let private asyncMap (fn: 't -> 'u) task = async {
      let! result = task
  
      return fn result
  }
  
  let private asyncMapSeq (fn: 't -> 'u) task = async {
      let! result = task
  
      return Seq.map fn result
  }
  
  let database name couchUrl =
      { defaultCouchProps() with databaseName = name; couchUrl = couchUrl }
  
negative.code:     |> Async.AwaitTask
  
  /// Executes the view with the given designDocName and viewName.
  let executeView<'returnType> designDocName viewName (viewOptions: ViewOptions option) props =
      let client = toClient props
      let options = Option.toObj viewOptions
  
      client.ViewAsync<'returnType>(designDocName, viewName, options)
      |> Async.AwaitTask
  
  /// Gets the document with the given id. If a revision is given, that specific version will be returned.
  