forks/geef
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add geef_reflog:delete()

Browse Source
This commit is contained in:
Carlos Martín Nieto
2014-02-13 18:24:42 +01:00
parent 5520efb72a
commit 73af429633
7 changed files with 47 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/geef_repo.erl
View File

@@ -14,7 +14,7 @@
lookup_object/2, revwalk/1, stop/1,
reference_dwim/2, handle/1, iterator/2]).
-export([reference_has_log/2]).
-export([reflog_read/2]).
-export([reflog_read/2, reflog_delete/2]).
-include("geef_records.hrl").
-record(state, {handle}).
@@ -100,6 +100,10 @@ reference_has_log(Pid, Name) ->
reflog_read(Pid, Name) ->
gen_server:call(Pid, {reflog_read, Name}).
%% @private
reflog_delete(Pid, Name) ->
gen_server:call(Pid, {reflog_delete, Name}).
stop(Pid) ->
gen_server:call(Pid, stop).
@@ -150,6 +154,10 @@ handle_call({reflog_read, Name}, _From, State = #state{handle=Handle}) ->
Reply = geef_nif:reflog_read(Handle, Name),
{reply, Reply, State};
handle_call({reflog_delete, Name}, _From, State = #state{handle=Handle}) ->
Reply = geef_nif:reflog_delete(Handle, Name),
{reply, Reply, State};
handle_call(stop, _From, State) ->
{stop, normal, ok, State};
handle_call(revwalk, _From, State = #state{handle=Handle}) ->