unikernel/duniverse/dune_/bin/upgrade.ml

@@ -0,0 +1,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