From 8ab5f20f532bc6e9de38ee457b0ef8dd30c80374 Mon Sep 17 00:00:00 2001
From: Marius Peter <marius.peter@tutanota.com>
Date: Sun, 19 Jan 2025 20:00:18 +0100
Subject: Initial commit for ogit.

---
 lib/helpers/file_helpers.ml | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 lib/helpers/file_helpers.ml

(limited to 'lib/helpers/file_helpers.ml')

diff --git a/lib/helpers/file_helpers.ml b/lib/helpers/file_helpers.ml
new file mode 100644
index 0000000..892d807
--- /dev/null
+++ b/lib/helpers/file_helpers.ml
@@ -0,0 +1,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>"
-- 
cgit v1.2.3