open Import

let doc = "Upgrade projects across major Dune versions."

let man =
  [ `S "DESCRIPTION"
  ; `P
      "$(b,dune upgrade) upgrades all the projects in the workspace to the latest major \
       version of Dune"
  ; `Blocks Common.help_secs
  ]
;;

let info = Cmd.info "upgrade" ~doc ~man

let term =
  let+ builder = Common.Builder.term in
  let common, config = Common.init builder in
  Scheduler.go_with_rpc_server ~common ~config (fun () -> Dune_upgrader.upgrade ())
;;

let command = Cmd.v info term