diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-20 09:23:23 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-20 09:23:23 -0500 |
| commit | 964d6773395b7008661b38c11acd24959f280fb1 (patch) | |
| tree | d4f58518302d406e571a3eb976efbc25b560a8d7 /lib/todos.ml | |
| parent | 5aec082b915416107cec9e8c811bbbedafb70b59 (diff) | |
| download | stitch-964d6773395b7008661b38c11acd24959f280fb1.tar.gz stitch-964d6773395b7008661b38c11acd24959f280fb1.tar.bz2 stitch-964d6773395b7008661b38c11acd24959f280fb1.zip | |
Replace ugly conversion
Diffstat (limited to '')
| -rw-r--r-- | lib/todos.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/todos.ml b/lib/todos.ml index 237732f..0cdbc79 100644 --- a/lib/todos.ml +++ b/lib/todos.ml @@ -73,7 +73,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 |