anil.recoil.org / monopam
Monorepo management for opam overlays
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

Remove monopam verse status command

The functionality is superseded by monopam status which shows both
local package sync state and verse fork analysis in a unified view.

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>

Anil Madhavapeddy 7a950024 daee63d8

-44
-44
bin/main.ml
··· 477 477 in 478 478 Cmd.v info Term.(ret (const run $ verse_root_arg $ verse_handle_arg $ logging_term)) 479 479 480 - let verse_status_cmd = 481 - let doc = "Show workspace status" in 482 - let man = 483 - [ 484 - `S Manpage.s_description; 485 - `P 486 - "Displays the status of your opamverse workspace, including which \ 487 - members you're tracking and the git state of their local clones."; 488 - `S "OUTPUT"; 489 - `P "For each tracked member, shows:"; 490 - `I ("handle", "The member's tangled handle (e.g., alice.bsky.social)"); 491 - `I ("monorepo URL", "Git URL of their monorepo"); 492 - `I ("status", "One of: not cloned, clean, dirty, ahead N/behind M"); 493 - `S "STATUS INDICATORS"; 494 - `I ("not cloned", "Member added but monorepo not yet cloned locally"); 495 - `I ("clean", "Local clone matches remote, no uncommitted changes"); 496 - `I ("dirty", "Local clone has uncommitted changes"); 497 - `I ("ahead N, behind M", "Local is N commits ahead and M commits behind remote"); 498 - `S Manpage.s_examples; 499 - `Pre "$ monopam verse status\n\ 500 - Workspace: /home/user/tangled\n\ 501 - Registry: tangled-community\n\ 502 - Members:\n\ 503 - \ alice.bsky.social -> https://github.com/alice/mono [clean]\n\ 504 - \ bob.example.com -> https://github.com/bob/mono [ahead 2, behind 0]"; 505 - ] 506 - in 507 - let info = Cmd.info "status" ~doc ~man in 508 - let run () = 509 - Eio_main.run @@ fun env -> 510 - with_verse_config env @@ fun config -> 511 - let fs = Eio.Stdenv.fs env in 512 - let proc = Eio.Stdenv.process_mgr env in 513 - match Monopam.Verse.status ~proc ~fs ~config () with 514 - | Ok status -> 515 - Fmt.pr "%a@." Monopam.Verse.pp_status status; 516 - `Ok () 517 - | Error e -> 518 - Fmt.epr "Error: %a@." Monopam.Verse.pp_error_with_hint e; 519 - `Error (false, "status failed") 520 - in 521 - Cmd.v info Term.(ret (const run $ logging_term)) 522 - 523 480 let verse_members_cmd = 524 481 let doc = "List registry members" in 525 482 let man = ··· 763 720 Cmd.group info 764 721 [ 765 722 verse_init_cmd; 766 - verse_status_cmd; 767 723 verse_members_cmd; 768 724 verse_pull_cmd; 769 725 verse_sync_cmd;