Add reference_type()

src/geef.erl

@@ -2,7 +2,7 @@
 -export([hex_to_raw/1, repository/1, repository_get_path/1, repository_get_odb/1,
 	 repository_init/2, repository_is_bare/1, repository_get_workdir/1, reference_list/1,
 	 reference_to_id/2, reference_glob/2, reference_lookup/2, reference_resolve/1,
-	 reference_id/1, odb_object_exists/2]).
+	 reference_id/1, reference_type/1, odb_object_exists/2]).
 
 -export([oid_fmt/1, oid_parse/1]).
 
@@ -47,6 +47,9 @@ reference_id(_Handle) ->
 reference_resolve(_Handle) ->
     nif_error(?LINE).
 
+reference_type(_Handle) ->
+    nif_error(?LINE).
+
 repository(Path) ->
     case repository_open(Path) of
 	{ok, Handle}  ->

src/reference.erl

@@ -1,5 +1,5 @@
 -module(reference, [Handle]).
--export([resolve/0, id/0]).
+-export([resolve/0, id/0, type/0]).
 
 resolve() ->
     case geef:reference_resolve(Handle) of
@@ -12,3 +12,7 @@ resolve() ->
 -spec id() -> binary().
 id() ->
     geef:reference_id(Handle).
+
+-spec type() -> oid | symbolic | error.
+type() ->
+    geef:reference_type(Handle).