anchor.diff:  
   type WSTargets with
   
  -    static member Default (version) =
  +    static member Default (version: Paket.SemVerInfo) =
  +        let buildBranch = environVarOrNone "BuildBranch"
  +        let version =
  +            match buildBranch with
  +            | Some b -> Paket.SemVer.Parse (version.AsString + "-" + b)
  +            | None -> version
           {
               Version = version
               BuildAction = BuildAction.Solution "*.sln"
               Attributes = Seq.empty
               StrongName = false
               BaseBranch = Git.Information.getBranchName "."
  -            PushByMergingOnto = Some "ci"
  -            PushOnlyAllowedChanges = environVarOrDefault "PushOnlyAllowedChanges" "true" |> bool.Parse
  +            WorkBranch = buildBranch
  +            MergeMaster = buildBranch = Some "staging"
               PushRemote = environVarOrDefault "PushRemote" "origin"
           }
   
  
positive.code:         Attributes : seq<Attribute>
          StrongName : bool
          BaseBranch : string
          PushByMergingOnto : option<string>
          PushOnlyAllowedChanges : bool
          PushRemote : string
      }
  
  
negative.code:             }
  
      Target "WS-Checkout" <| fun () ->
          match args.WorkBranch with
          | None -> ()
          | Some branch ->
              try git "checkout %s" branch
              with e ->
                  try git "checkout -b %s" branch
                  with _ -> raise e
              if args.MergeMaster then
                  git "merge --no-ff --no-commit %s" args.BaseBranch
  
      Target "WS-Commit" <| fun () ->
          let tag = "v" + args.Version.AsString
          git "add ."
          git "commit --allow-empty -m \"[CI] %s\"" tag
          git "tag %s" tag
          git "push %s %s" args.PushRemote (Git.Information.getBranchName ".")
          git "push %s %s" args.PushRemote tag
  
      Target "WS-Publish" <| fun () ->
          match environVarOrNone "NugetPublishUrl", environVarOrNone "NugetApiKey" with
  