23 lines
516 B
OCaml
23 lines
516 B
OCaml
|
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
|