From 964d6773395b7008661b38c11acd24959f280fb1 Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Mon, 20 May 2024 09:23:23 -0500 Subject: Replace ugly conversion --- lib/done.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/done.ml') diff --git a/lib/done.ml b/lib/done.ml index f7e1a0b..cda47e4 100644 --- a/lib/done.ml +++ b/lib/done.ml @@ -72,7 +72,7 @@ let rec render if i == y - scroll then I.strf "%s" el |> I.pad ~l:2 ~t:(i + content_start) else I.strf "%s" el |> I.pad ~l:2 ~t:(i + content_start)) - (Array.to_seq content_pretty |> Seq.drop scroll |> Array.of_seq) + (content_pretty |> Basic.array_drop scroll) in let open I in Array.fold_left (fun sum el -> el sum) (title dot output_info) elements -- cgit v1.2.3