Add reference has_log()

src/geef_nif.erl

@@ -69,6 +69,10 @@ reference_resolve(_RepoHandle, _Name) ->
 reference_dwim(_Handle, _Name) ->
     ?NIF_FN.
 
+-spec reference_has_log(term(), iolist()) -> {ok, boolean()} | {error, term()}.
+reference_has_log(_Handle, _Name) ->
+    ?NIF_FN.
+
 odb_object_exists(_Val, _Val) ->
     nif_error(?LINE).
 

src/geef_ref.erl

@@ -1,6 +1,7 @@
 -module(geef_ref).
 
 -export([lookup/2, iterator/1, iterator/2, next/1, resolve/1, create/4, create_symbolic/4, dwim/2, shorthand/1]).
+-export([has_log/1, has_log/2]).
 
 -include("geef_records.hrl").
 
@@ -103,3 +104,12 @@ shorthand(<<"refs/", Rest/binary>>) ->
     Rest;
 shorthand(#geef_reference{name=Name}) ->
     shorthand(Name).
+
+%% @doc Return whether the reference has a reflog
+-spec has_log(pid(), iolist()) -> {ok, boolean()} | {error, term()}.
+has_log(Repo, Name) ->
+    geef_repo:reference_has_log(Repo, Name).
+
+-spec has_log(ref()) -> boolean() | {ok, boolean()} | {error | term()}.
+has_log(#geef_reference{repo=Repo, name=Name}) ->
+    has_log(Repo, Name).

src/geef_repo.erl

@@ -18,6 +18,7 @@
 -export([open/1, init/2, path/1, workdir/1, odb/1, is_bare/1, references/1, discover/1,
 	 lookup_object/2, revwalk/1, stop/1,
 	 reference_dwim/2, handle/1, iterator/2]).
+-export([reference_has_log/2]).
 
 -include("geef_records.hrl").
 -record(state, {handle}).
@@ -95,11 +96,15 @@ reference_dwim(Pid, Name) ->
 revwalk(Pid) ->
     gen_server:call(Pid, revwalk).
 
+%% @private
+reference_has_log(Pid, Name) ->
+    gen_server:call(Pid, {has_log, Name}).
+
 stop(Pid) ->
     gen_server:call(Pid, stop).
 
 %% @private
-%% @doc Get the underlying repo resource6
+%% @doc Get the underlying repo resource
 handle(Pid) ->
     gen_server:call(Pid, handle).
 
@@ -136,6 +141,11 @@ handle_call({iterator, Regexp}, _From, State = #state{handle=Handle}) ->
 handle_call({dwim_reference, Name}, _From, State = #state{handle=Handle}) ->
     Reply = geef_nif:reference_dwim(Handle, Name),
     {reply, Reply, State};
+
+handle_call({has_log, Name}, _From, State = #state{handle=Handle}) ->
+    Reply = geef_nif:reference_has_log(Handle, Name),
+    {reply, Reply, State};
+
 handle_call(stop, _From, State) ->
     {stop, normal, ok, State};
 handle_call(revwalk, _From, State = #state{handle=Handle}) ->