anchor.diff:  
   let PublishPact (version:string[], branchName:string) pactfiles =
       pactfiles |>
  -        Seq.iter(fun file -> 
  +        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)
  
positive.code:             0 |> ignore
          )
  
      0 |> ignore
negative.code:     let stream = new MemoryStream(byteArray)
      json.ReadObject(stream) :?> Pact
  
  let private pactVersionFromVersion (version:string[]) =
      version.[1..4] |> String.concat "."
  
  let private changeCharsToDash text (chars:string) =
  