anchor.diff:              loop(cache)
   
       //--- Functions ---
  -    let OpenPullRequest (state : string) =
  -        state.EqualsInvariantIgnoreCase("opened") || state.EqualsInvariantIgnoreCase("reopened")
  -
  -    let InvalidPullRequest pr =
  -        pr?``base``?ref.AsString().EqualsInvariantIgnoreCase("master")
  -    
  -    let targetOpenBranch targetBranchDate =
  -        (targetBranchDate - DateTime.UtcNow.Date).Days >= 6
  -
  -    let getTargetBranchDate pr =
  -        let targetBranch = pr?``base``?ref.AsString()
  -        DateTime.ParseExact(targetBranch.Substring(targetBranch.Length - DATE_PATTERN.Length), DATE_PATTERN, null)
  -
  -    let AutoMergeablePullRequest pr =
  -        IsMergeable pr && targetOpenBranch(getTargetBranchDate pr)
  -
  -    let UnknownMergeabilityPullRequest pr =
  -        targetOpenBranch(getTargetBranchDate pr) && pr?mergeable_state.AsString() = "unknown"
  -
       let ValidateConfig key value =
           match value with
           | None -> raise(MissingConfig key)
  
positive.code:         // Use
          let allRepos = repos.Value.Split(',')
          CreateWebHooks allRepos
          ProcessRepos allRepos |> Seq.iter (fun resp -> printfn "%s" <| resp.ToText())
          result.Return()
          Seq.empty<IYield>.GetEnumerator()
  
  
negative.code:                     try
                          let resp = Plug.New(prUri).Get(Json("", [| new KeyValuePair<_, _>("Authorization", "token " + token.Value) |]))
                          let pr = JsonValue.Parse(resp.ToText())
                          pr |> DeterminePullRequestType |> ProcessPullRequestType
                      with e ->
                          cache.Set(prUri, retry + 1, mergeabilityTTL)
                          logger.Debug(String.Format("Something failed, will poll '{0}' meargeability status again in '{1}'", prUri, mergeabilityTTL), e)
  