Add geef_commit:tree_id

src/geef.erl

@@ -11,7 +11,7 @@
 -export([oid_fmt/1, oid_parse/1]).
 
 % objects
--export([object_lookup/2]).
+-export([object_lookup/2, commit_tree_id/1]).
 
 -on_load(load_enif/0).
 
@@ -74,6 +74,10 @@ oid_parse(_Sha) ->
 object_lookup(_Repo, _Oid) ->
     nif_error(?LINE).
 
+-spec commit_tree_id(term) -> binary().
+commit_tree_id(_Handle) ->
+    nif_error(?LINE).
+
 nif_error(Line) ->
     erlang:nif_error({nif_not_loaded,module,?MODULE,line,Line}).
 

src/geef_commit.erl

@@ -0,0 +1,9 @@
+-module(geef_commit).
+-export([tree_id/1]).
+
+-include("geef_records.hrl").
+
+-spec tree_id(object()) -> oid().
+tree_id(#object{type=commit,handle=Handle}) ->
+    Oid = geef:commit_tree_id(Handle),
+    #oid{oid=Oid}.

src/geef_object.erl

@@ -8,7 +8,7 @@
 lookup(#repo{handle=Repo}, #oid{oid=Oid}) ->
     case geef:object_lookup(Repo, Oid) of
 	{ok, Type, Handle} ->
-	    #object{type=Type, handle=Handle};
+	    {ok, #object{type=Type, handle=Handle}};
 	Other ->
 	    Other
     end.