20 lines
569 B
OCaml
20 lines
569 B
OCaml
|
#!/usr/bin/env ocaml
|
||
|
|
|
||
|
|
let rec find_html_files (static_path : string) =
|
||
|
|
let files = Sys.readdir static_path in
|
||
|
|
Array.fold_left
|
||
|
|
(fun acc file ->
|
||
|
|
let path = Filename.concat static_path file in
|
||
|
|
if Sys.is_directory path then acc @ find_html_files path
|
||
|
|
else if Filename.check_suffix path ".html" then path :: acc
|
||
|
|
else acc)
|
||
|
|
[] files
|
||
|
|
|
||
|
|
let () =
|
||
|
|
let files = find_html_files "static" in
|
||
|
|
let _file_names = List.fold_left (fun name acc ->
|
||
|
|
acc ^ "\n - " ^ name
|
||
|
|
) "" files in
|
||
|
|
(* Printf.printf "Found files:\n%s" file_names; *)
|
||
|
|
exit 0
|