anchor.diff:      member this.HandleGithubMessage (context : DreamContext) (request : DreamMessage) =
           let requestText = request.ToText()
           logger.DebugFormat("Payload: ({0})", requestText)
  -        ProcessPullRequest(JsonValue.Parse(requestText))
  +        ProcessPullRequestEvent(JsonValue.Parse(requestText))
   
       [<DreamFeature("GET:status", "Check the service's status")>]
       member this.GetStatus (context : DreamContext) (request : DreamMessage) =
  
positive.code:         else
              Some configVal
  
      let DeterminePullRequestType pr =
          let pullRequestUrl = pr?pull_request?url.AsString()
          if InvalidPullRequest pr then
              Invalid (new XUri(pullRequestUrl))
          else if UnknownMergeabilityPullRequest pr then
              UnknownMergeability (new XUri(pullRequestUrl))
          else if AutoMergeablePullRequest pr then
              AutoMergeable (new XUri(pullRequestUrl))
          else
              Skip
  
negative.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 ProcessPullRequestEvent prEvent =
          match DeterminePullRequestTypeFromEvent prEvent 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 ProcessPullRequest pr =
          match DeterminePullRequestType pr with
          | 
  
      let ProcessPullRequests prs =
          prs |> Seq.map (fun pr -> ProcessPullRequest pr)
  
  