1 2 3 4 5 6 7
let list_files dir = try Array.to_list (Sys.readdir dir) |> List.map (fun file -> Printf.sprintf "<li>%s</li>" file) |> String.concat "" with _ -> "<li>Error: Unable to read directory</li>"
