From 257038afe8224d87384f1bf1e41c31ebbdf02ddb Mon Sep 17 00:00:00 2001 From: Stavros Polymenis Date: Wed, 15 Nov 2017 20:02:50 +0000 Subject: [PATCH] Started work on patching store/file --- src/store/file.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/store/file.ml b/src/store/file.ml index e1ccb3d..36602f0 100644 --- a/src/store/file.ml +++ b/src/store/file.ml @@ -5,7 +5,7 @@ let load f = let s = Bytes.create n in really_input ic s 0 n; close_in ic; - (s) + Bytes.to_string s let note path = Lpath.fpath_of_note path |> load |> Note.of_string @@ -22,7 +22,7 @@ let to_list ?(order) lens_fn store = Lpath.string_of_repo repo_path |> Sys.readdir |> Array.to_list - |> List.filter (fun file -> BatString.ends_with file Lpath.extension) + |> List.filter (fun filename -> BatString.ends_with file Lpath.extension) (* convert to paths first then check extention *) |> List.fold_left cons_valid_meta [] |> match order with | Some fn -> List.fast_sort fn