From 75baea720c97f73370786b95006a65da7762264b Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 20 Jul 2025 18:00:04 +0200 Subject: Miscellaneous cleanup. --- lib/resolvers.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/resolvers.ml') diff --git a/lib/resolvers.ml b/lib/resolvers.ml index 873b137..e0b85c3 100644 --- a/lib/resolvers.ml +++ b/lib/resolvers.ml @@ -83,8 +83,8 @@ module Reference = struct let tags repo = let* references = all repo in - let is_branch reference = String.starts_with ~prefix:"v" reference.name in - Lwt_result.return @@ List.filter is_branch references + let is_tag reference = String.starts_with ~prefix:"v" reference.name in + Lwt_result.return @@ List.filter is_tag references let of_id repo id = let* branches = branches repo in @@ -115,7 +115,7 @@ module Entry = struct { hash; name; perm } let is_readme { name; _ } = - String.lowercase_ascii name |> String.starts_with ~prefix:"readme" + String.(lowercase_ascii name |> starts_with ~prefix:"readme") end module Tree = struct -- cgit v1.2.3