anchor.diff:  
   let UsageContent() =
       let content = [
  -        [MainCommand.Usage], "help [<command|workspace|repo|view|app>]: display help on command or area"
  +        [MainCommand.Usage], "help [<command|wks|repo|view|app>]: display help on command or area"
           [MainCommand.Version], "version : display full-build version"
           [MainCommand.Workspace; MainCommand.Setup], "setup <git|gerrit> <master-repository> <master-artifacts> <local-path> : setup a new environment in given path"
           [MainCommand.Workspace; MainCommand.Init], "init <git|gerrit> <master-repository> <local-path> : initialize a new workspace in given path"
  
positive.code: let private (|Token|_|) (token : string) =
      match token with
      | "version" -> Some Version
      | "workspace" -> Some Workspace
  
      | "help" -> Some Help
      | "upgrade" -> Some Upgrade
  
negative.code: let rec private commandPublish (mt : bool) view (push : bool) (args : string list) =
      match args with
      | [] -> Command.Error MainCommand.Publish
      | TokenOption TokenOption.NoMultithread :: tail -> tail |> commandPublish false view push
      | TokenOption TokenOption.View :: ViewId name :: tail -> tail |> commandPublish mt (Some name) push
      | TokenOption TokenOption.Push :: tail -> tail |> commandPublish mt view true
  