Fix for older stdlib versions (List.concat_map requires >= 4.10)

aantron · Feb 10, 2024 · 90f24a3 · 90f24a3
1 parent 24765e2
commit 90f24a3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/report/html.ml b/src/report/html.ml
@@ -56,9 +56,10 @@ end = struct
 
   let rec flatten files =
     files
-    |> List.concat_map (function
+    |> List.map (function
       | (File _) as f -> [ f ]
       | Directory (_, files, _) -> flatten files)
+    |> List.concat
 end
 
 let output_html_index ~tree ~sort_by_stats title theme filename files =