mirror of
https://github.com/chshersh/github-tui.git
synced 2024-09-11 18:37:56 +03:00
Minor cosmetics to directory names
This commit is contained in:
parent
6880bc363e
commit
af0b587d25
@ -30,7 +30,7 @@ let rec to_tree path =
|
|||||||
(fun child_name -> to_tree (Filename.concat path child_name))
|
(fun child_name -> to_tree (Filename.concat path child_name))
|
||||||
(Sys.readdir path)
|
(Sys.readdir path)
|
||||||
in
|
in
|
||||||
let dirname = Filename.basename path in
|
let dirname = Filename.basename path ^ "/" in
|
||||||
Dir (dirname, children)
|
Dir (dirname, children)
|
||||||
else
|
else
|
||||||
File (Filename.basename path)
|
File (Filename.basename path)
|
||||||
|
Loading…
Reference in New Issue
Block a user