diff options
Diffstat (limited to 'lib/resolvers.ml')
| -rw-r--r-- | lib/resolvers.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/resolvers.ml b/lib/resolvers.ml index 488ec56..fb5dee6 100644 --- a/lib/resolvers.ml +++ b/lib/resolvers.ml @@ -112,7 +112,7 @@ end module Tree = struct type t = { hash : string; entries : Entry.t list } - let to_t (tree : Store.Value.Tree.t) = + let to_t tree = let hash = Store.Value.Tree.hash tree |> Int.to_string in let entries = Store.Value.Tree.to_list tree |> List.map Entry.to_t in { hash; entries } @@ -124,7 +124,7 @@ module Tree = struct | Git.Value.Tree tree -> Lwt_result.return (to_t tree) | _ -> Lwt_result.fail @@ `Msg ("no tree for id " ^ id) - let head repo : (t, Store.error) Lwt_result.t = + let head repo = let* store = store repo in let* hash = Store.Ref.resolve store Git.Reference.head @@ -136,8 +136,7 @@ end module Blob = struct type t = { content : string } - let to_t (blob : Store.Value.Blob.t) = - { content = Store.Value.Blob.to_string blob } + let to_t blob = { content = Store.Value.Blob.to_string blob } let of_id repo id = let* store = store repo in |