Minor cosmetics to directory names

2024-07-14 22:00:36 +03:00 · 2024-02-25 11:54:29 +00:00 · 2024-02-25 11:54:29 +00:00 · af0b587d25
commit af0b587d25
parent 6880bc363e
1 changed files with 1 additions and 1 deletions
--- a/lib/fs.ml
+++ b/lib/fs.ml
@ -30,7 +30,7 @@ let rec to_tree path =
      (fun child_name -> to_tree (Filename.concat path child_name))
      (Sys.readdir path)
    in
-    let dirname = Filename.basename path in
+    let dirname = Filename.basename path ^ "/" in
    Dir (dirname, children)
  else
    File (Filename.basename path)