From 482e8b80fa66e328e252567c915f5e96e727f7cf Mon Sep 17 00:00:00 2001 From: Federico Igne Date: Tue, 23 Jan 2024 18:08:56 +0100 Subject: feat: add simple status bar with timed status message support --- bin/main.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bin/main.ml') diff --git a/bin/main.ml b/bin/main.ml index 932c452..e763f70 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -4,5 +4,5 @@ let () = let open Editor in let cli = Config.parse Sys.argv in let editor = Editor.init cli in - let rec loop () = Action.(render *> handle_next_command >>= loop) in + let rec loop () = Action.(render *> handle_next_command *> tick >>= loop) in Action.eval ~editor loop -- cgit v1.2.3