My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Example CLI application using Cacheio_cmd module *)
2
3open Cmdliner
4
5let main () =
6 (* Default app name for the cache CLI tool *)
7 let app_name = "cacheio-cli" in
8
9 (* Run with Eio to provide the filesystem and stdin *)
10 Eio_main.run @@ fun env ->
11 let fs = env#fs in
12 let stdin = (env#stdin :> Eio.Flow.source_ty Eio.Resource.t) in
13
14 let doc = "Cache management tool" in
15 let man = [
16 `S "DESCRIPTION";
17 `P "A command-line tool for managing the Cacheio file cache.";
18 `P "This tool provides subcommands for listing, clearing, and managing cached files.";
19 ] in
20 let info = Cmd.info "cache" ~doc ~man in
21 let cmd = Cmd.group info (Cacheio_cmd.Cmd.make_commands ~app_name fs stdin) in
22
23 exit (Cmd.eval cmd)
24
25let () = main ()