anchor.diff:  ﻿#r "../packages/FAKE/tools/FakeLib.dll" // include Fake lib
   #r "System.Runtime.Serialization"
   
  -open Fake 
  +open Fake
   open System.Runtime.Serialization
   open System.Runtime.Serialization.Json
   open System
  
positive.code:                 trace ("Uploaded pact: " + url)
              with
                  | a -> traceError ("Error uploading pact file " + url); reraise()
              
  
              let tagRequest = WebRequest.Create tagUrl :?> HttpWebRequest
              tagRequest.ContentType <- "application/json"
  
negative.code: 
  let PublishPact (version:string[], branchName:string) pactfiles =
      pactfiles |>
          Seq.iter(fun file ->
              let pactContent = File.ReadAllText(file)
              let pact = deserialisePact(pactContent)
              let url = sprintf "%s/pacts/provider/%s/consumer/%s/version/%s" pactBroker Uri.EscapeDataString(pact.provider.name) Uri.EscapeDataString(pact.consumer.name) (pactVersionFromVersion version)
  