list-stale command

2 files changed, 23 insertions, 0 deletions

diff --git a/bin/cmd.ml b/bin/cmd.ml
index 6a2966d..a411f43 100644
--- a/bin/cmd.ml
+++ b/bin/cmd.ml
@@ -301,6 +301,28 @@ module Lock = struct
 	let cmd ~env = Cmdliner.Cmd.v info (term ~env)
 end
 
+module List_stale = struct
+	let info =
+		Cmdliner.Cmd.info
+			"list-stale"
+			~doc: "List stale inputs with latest-cmd, without refreshing"
+			~man: common_man
+
+	let run ~env ~domain_count : unit =
+		match Nixtamal.list_stale ~env ~domain_count with
+		| Ok() -> ()
+		| Error err -> failwith (Fmt.str "%a" Nixtamal.Error.pp_error err)
+
+	let term ~env =
+		let open Cmdliner in
+		Term.(
+			const (fun glb -> Global.run ~env glb @@ run)
+			$ Global.args
+		)
+
+	let cmd ~env = Cmdliner.Cmd.v info (term ~env)
+end
+
 module Refresh = struct
 	let info =
 		Cmdliner.Cmd.info
diff --git a/bin/main.ml b/bin/main.ml
index 618b9db..bdb25e7 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -25,6 +25,7 @@ let cmd ~env =
 		Cmd.Tweak.cmd ~env;
 		Cmd.Show.cmd ~env;
 		Cmd.Lock.cmd ~env;
+		Cmd.List_stale.cmd ~env;
 		Cmd.Refresh.cmd ~env;
 	]
 	in