software-archive/logarion-2021
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix missing directory filename separator

Browse Source
This commit is contained in:
orbifx 2021-06-13 12:54:00 +01:00
parent aaf1ff76a7
commit 551c907875
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/file_store.ml
View File

@ -44,7 +44,7 @@ let iter_valid_text dir pred fn p =
let fold_valid_text dir pred fn acc p = let fold_valid_text dir pred fn acc p =
if not (text_filetype dir p) then acc else if not (text_filetype dir p) then acc else
match to_text dir p with match to_text dir p with
Error x -> prerr_endline x; acc | Ok t -> if pred t then fn acc (t, dir^p) else acc Error x -> prerr_endline x; acc | Ok t -> if pred t then fn acc (t, dir//p) else acc
let iter ?(predicate=fun _ -> true) ?order fn {store;_} = let iter ?(predicate=fun _ -> true) ?order fn {store;_} =
match order with match order with