anchor.diff:  open Fake
   open Fake.AssemblyInfoFile
   open SourceLink
  +
  +
  +open Microsoft.TeamFoundation.Build.Client
  +
  +let rec printBuildInfo (bi:IBuildInformation) indent =
  +    bi.Nodes |> Seq.iter (fun n ->
  +        printfn "%s%d %s" indent n.Id n.Type
  +        for k,v in n.Fields.KeyValues do
  +            printfn "%s  %-30s %s" indent k v
  +        printBuildInfo n.Children (indent + "  ")
  +    )
  +
  +//// print current buid info
  +//let tp = new TfsProject(Uri "https://ctaggart.visualstudio.com/DefaultCollection/TryGit")
  +////tp.Tfs.BuildServer.GetBuildDefinitions
  +////tp.GetBuildDefinitions()
  +//let b = tp.Tfs.BuildServer.GetBuild 364
  +//let bi = b.Information
  +//printBuildInfo bi ""
  +//
  +//let st = bi.AddBuildStep("build step a", "message of build step a", DateTime.UtcNow, BuildStepStatus.Succeeded)
  +//st.FinishTime <- st.StartTime.AddMinutes 2.
  +//bi.Save()
   
   type MyListener() =
       interface ITraceListener with
  
positive.code:     }) "Git/Git.nuspec"
  )
  
  "Clean"
      =?> ("Tfs", isTfsBuild)
      =?> ("BuildVersion", buildServer = BuildServer.AppVeyor)
  
negative.code:     ==> "Build"
      =?> ("SourceLink", isMono = false && hasBuildParam "skipSourceLink" = false)
      ==> "NuGet"
      =?> ("Summary", isTfsBuild)
  
  RunTargetOrDefault "NuGet"