diff options
Diffstat (limited to 'lib/resolvers.ml')
| -rw-r--r-- | lib/resolvers.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 |