anchor.diff:          else
               Some configVal
   
  -    let DeterminePullRequestType pr =
  -        let pullRequestUrl = pr?pull_request?url.AsString()
  -        if InvalidPullRequest pr then
  +    let DeterminePullRequestTypeFromEvent prEvent =
  +        let pullRequestUrl = prEvent?pull_request?url.AsString()
  +        if InvalidPullRequest prEvent then
               Invalid (new XUri(pullRequestUrl))
  -        else if UnknownMergeabilityPullRequest pr then
  +        else if UnknownMergeabilityPullRequest prEvent then
               UnknownMergeability (new XUri(pullRequestUrl))
  -        else if AutoMergeablePullRequest pr then
  +        else if AutoMergeablePullRequest prEvent then
  +            AutoMergeable (new XUri(pullRequestUrl))
  +        else
  +            Skip
  +
  +    let DeterminePullRequestType2 pr =
  +        let pullRequestUrl = prEvent?pull_request?url.AsString()
  +        if InvalidPullRequest prEvent then
  +            Invalid (new XUri(pullRequestUrl))
  +        else if UnknownMergeabilityPullRequest prEvent then
  +            UnknownMergeability (new XUri(pullRequestUrl))
  +        else if AutoMergeablePullRequest prEvent then
               AutoMergeable (new XUri(pullRequestUrl))
           else
               Skip
  
positive.code:         let auth = Json("", [| new KeyValuePair<_, _>("Authorization", "token " + token.Value) |])
          JsonValue.Parse(GITHUB_API.At("repos", owner.Value, repo, "pulls").Get(auth).ToText()).AsArray()
  
      let ProcessPullRequest pr =
          match DeterminePullRequestType pr with
          | Invalid i -> ClosePullRequest i
          | UnknownMergeability uri -> QueueMergePullRequest uri
          | AutoMergeable uri -> MergePullRequest uri
          | Skip -> DreamMessage.Ok(MimeType.JSON, "Pull request needs to be handled by a human since is not targeting an open branch or the master branch"B)
      
      let ProcessPullRequests prs =
          prs |> Seq.map (fun pr -> ProcessPullRequest pr)
  
  
negative.code:     member this.HandleGithubMessage (context : DreamContext) (request : DreamMessage) =
          let requestText = request.ToText()
          logger.DebugFormat("Payload: ({0})", requestText)
          ProcessPullRequestEvent(JsonValue.Parse(requestText))
  
      [<DreamFeature("GET:status", "Check the service's status")>]
      member this.GetStatus (context : DreamContext) (request : DreamMessage) =
  