Add a way to look up objects

This commit is contained in:
Carlos Martín Nieto
2013-01-30 00:16:52 +01:00
parent ad567fbf41
commit d71c6ff702
7 changed files with 118 additions and 0 deletions

14
src/geef_object.erl Normal file
View File

@@ -0,0 +1,14 @@
-module(geef_object).
-include("geef_records.hrl").
-export([lookup/2]).
-spec lookup(repo(), oid()) -> object().
lookup(#repo{handle=Repo}, #oid{oid=Oid}) ->
case geef:object_lookup(Repo, Oid) of
{ok, Type, Handle} ->
#object{type=Type, handle=Handle};
Other ->
Other
end.