1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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
|
