anchor.diff:                  """{ "state" : "closed"  }""")
           Plug.New(new XUri(pr?pull_request?url.AsString())).Post(close)
           
  -    member this.CreateWebHooks(repos) =
  +    member this.CreateWebHooks repos =
           repos
           |> Seq.filter (fun repo -> not(this.WebHookExist(repo)))
           |> Seq.iter (fun repo -> this.CreateWebHook(repo))
  
positive.code: [<DreamServiceConfig("github.token", "string", "A Github's personal API access token")>]
  [<DreamServiceConfig("github.owner", "string", "The owner of the repos we want to watch")>]
  [<DreamServiceConfig("github.repos", "string", "Comma separated list of repos to watch")>]
  type PullRequestService() =
      inherit DreamService()
      let GITHUB_API = Plug.New(new XUri("https://api.github.com"))
      let mutable token = None
      let mutable owner = None
                  
      override this.Start(config : XDoc, container : ILifetimeScope, result : Result) =
          
  
negative.code:         Seq.empty<IYield>.GetEnumerator()
          
      [<DreamFeature("POST:notify", "Receive a pull request notification")>]
      member this.HandleGithubMessage (context : DreamContext) (request : DreamMessage) =
          let pr = JsonValue.Parse(request.ToText())
          if this.InvalidPullRequest(pr)
          then this.ClosePullRequest(pr)
          else DreamMessage.Ok(MimeType.JSON, "Pull request does not target master branch, will ignore"B)
  
      [<DreamFeature("GET:status", "Check the service's status")>]
      member this.GetStatus (context : DreamContext) (request : DreamMessage) =
          DreamMessage.Ok(MimeType.JSON, "Running ...")
          
      member this.ValidateConfig (key : string) value =
          match value with
          | None -> raise(MissingConfig(key))
          | _ -> ()
  
      member this.InvalidPullRequest (pr : JsonValue) =
          let action = pr?action.AsString()
          (action = "opened" || action = "reopened") && pr.["pull_request"].["base"].["ref"].AsString() = "master"
          
      member this.ClosePullRequest (pr : JsonValue) =
          let close =
              new DreamMessage(
                  DreamStatus.Ok,
  