Add a basic blob wrapper

2013-03-02 12:42:47 +01:00
parent 94c5ece71c
commit d0bdfecf4b
1 changed files with 15 additions and 0 deletions
--- a/src/geef_blob.erl
+++ b/src/geef_blob.erl
@@ -0,0 +1,15 @@
+-module(geef_blob).
+
+
+-include("geef_records.hrl").
+
+-export([lookup/2, id/1]).
+
+-spec lookup(repo(), oid() | iolist()) -> object().
+lookup(Repo, Id) ->
+    {ok, Obj = #object{type=blob}} = geef_object:lookup(Repo, Id),
+    Obj.
+
+-spec id(object()) -> oid().
+id(Obj = #object{type=blob}) ->
+    geef_object:id(Obj).