anchor.diff:          Branches.push tempDocsDir
       else
           printfn "No gh-pages branch, going to create one"
  -        let currentBranch = (getGitResult "" "rev-parse --abbrev-ref HEAD").[0]
           // Create a clean gh-pages branch
           gitCommand "" "checkout --orphan gh-pages" |> tracefn "%A"
           gitCommand "" "rm -rf ." |> tracefn "%A"
  
positive.code: //            printfn "curr: %s, travis: %s, appveyor; %s" currId id id'
              if id = currId && id = id' && br = br' && st = traVsucc &&   st' = appVsucc then
                  printfn "Last build was at %A and %s" dt st
                  Git.Branches.checkoutBranch currDir master
                  Git.Merge.merge currDir Git.Merge.FastForwardFlag develop
                  Git.Branches.pushBranch currDir remote master
                  Git.Branches.checkoutBranch currDir develop
              else 
                  failwith <| sprintf "Last build did not pass on %s" (if st = traVsucc then "AppVeyor" else "Travis")
  
negative.code:     | _                           -> failwith (sprintf "Project file %s not supported. Unknown project type." projFileName)
  
  
  let currentBranch = (getGitResult "" "rev-parse --abbrev-ref HEAD").[0]
  
  
  Target "Integrate" (fun _ ->
      let master   = "master"
      let remote   = "origin"
      let develop  = currentBranch
      let currDir  = __SOURCE_DIRECTORY__
      let traVsucc = "passed"
      let appVsucc = "success"
  