From 3ec3c454c8796b2ca3012c0ade4c3f183ddd0404 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Carlos=20Mart=C3=ADn=20Nieto?= <cmn@dwim.me>
Date: Thu, 30 May 2013 03:50:45 +0200
Subject: [PATCH] geef_object:type/1 helper for elixir

---
 src/geef_object.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/geef_object.erl b/src/geef_object.erl
index 644b3b3..ee72e58 100644
--- a/src/geef_object.erl
+++ b/src/geef_object.erl
@@ -6,7 +6,7 @@
 
 -include("geef_records.hrl").
 
--export([lookup/2, lookup/3, id/1]).
+-export([lookup/2, lookup/3, id/1, type/1]).
 
 -spec lookup(pid(), geef_oid() | iolist()) -> {ok, geef_object()} | {error, term()}.
 lookup(Repo, #geef_oid{oid=Oid}) ->
@@ -38,6 +38,10 @@ id(#geef_object{handle=Handle}) ->
 	    Other
     end.
 
+-spec type(geef_object()) -> atom().
+type(#geef_object{type=Type}) ->
+    Type.
+
 -ifdef(TEST).
 
 lookup_test() ->