Paremetrize reference

src/reference.erl

@@ -0,0 +1,9 @@
+-module(reference, [Handle]).
+-export([resolve/0]).
+
+resolve() ->
+    case geef:reference_resolve(Handle) of
+	{ok, Ref} ->
+	    reference:new(Ref);
+	other -> other
+    end.

src/repository.erl

@@ -1,5 +1,5 @@
 -module(repository, [Handle]).
--export([path/0, workdir/0, bare/0, references/0]).
+-export([path/0, workdir/0, bare/0, references/0, odb/0, lookup/1]).
 
 path() ->
     geef:repository_get_path(Handle).
@@ -20,3 +20,11 @@ odb() ->
 	other ->
 	    other
     end.
+
+lookup(Refname) ->
+    case geef:repositiory_lookup_reference(Handle, Refname) of
+	{ok, Ref} ->
+	    reference:new(Ref);
+	other ->
+	    other
+    end.