Skip to content
Snippets Groups Projects
Commit 2f359973 authored by Florent Kirchner's avatar Florent Kirchner Committed by Virgile Prevosto
Browse files

[Fix] Downgrade to 4.04

parent 9b9027d2
No related branches found
No related tags found
No related merge requests found
......@@ -89,9 +89,8 @@ let pp_headers fmt l sizes =
let compute_sizes headers contents =
let check_line i m line =
match List.nth_opt line i with
| Some t -> max m (test_size t + 2)
| None -> m
try max m (test_size (List.nth line i) + 2)
with Failure _ -> m
in
let column_size (i,l) (h,_) =
let max = List.fold_left (check_line i) (test_size h) contents in
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment