module SHA1 = Digestif.SHA1Sourcetype t = | Blob of Bstr.t| Commit of Git_store__.Git_commit.t| Tree of Git_store__.Git_tree.entry list| Tag of Git_store__.Git_tag.t
Sourcetype with_parser = [ | `Commit| `Tree| `Tag
] Sourceval of_bstr :
kind:[< `Blob | `Commit | `Tag | `Tree ] ->
Bstr.t ->
(t, [> `Msg of string ]) result