anchor.diff:          BuildAction : BuildAction
           Attributes : seq<Attribute>
           StrongName : bool
  -        BaseBranch : string
  +        BaseRef : string
           WorkBranch : option<string>
           MergeMaster : bool
           PushRemote : string
  
positive.code:             BuildAction = BuildAction.Solution "*.sln"
              Attributes = Seq.empty
              StrongName = false
              BaseBranch = Git.Information.getBranchName "."
              WorkBranch = buildBranch
              MergeMaster = buildBranch = Some "staging"
              PushRemote = environVarOrDefault "PushRemote" "origin"
  
negative.code:                 try git "checkout -b %s" branch
                  with _ -> raise e
              if args.MergeMaster then
                  git "merge --no-ff --no-commit %s" args.BaseRef
  
      Target "WS-Commit" <| fun () ->
          let tag = "v" + args.Version.AsString
  