Add ability to pass callback to wrek_vert:exec

src/wrek_vert.erl

@@ -3,6 +3,7 @@
 -export([
  exec/3,
  exec/4,
+ exec/5,
  get/3,
  get/4,
  get_all/1,
@@ -47,6 +48,13 @@ exec(Pid, Dir0, Cmd0, Env) ->
  gen_server:call(Pid, {exec, Dir0, Cmd0, Env}).
 
 
+-spec exec(pid(), file:filename_all(), string(), list(), fun((any()) -> any())) ->
+ fun(() -> ok | {error, any()}).
+
+exec(Pid, Dir0, Cmd0, Env, EventFun) ->
+ gen_server:call(Pid, {exec, Dir0, Cmd0, Env, EventFun}).
+
+
 -spec get(pid(), any(), any()) -> any().
 
 get(Pid, Who, Key) ->
@@ -101,6 +109,10 @@ handle_call({exec, Dir, Cmd, Env}, _From, State = #state{event_mgr = EvMgr}) ->
  Result = fun() -> wrek_exec:exec(Dir, Cmd, Env, EventFun) end,
  {reply, Result, State};
 
+handle_call({exec, Dir, Cmd, Env, EventFun}, _From, State) ->
+ Result = fun() -> wrek_exec:exec(Dir, Cmd, Env, EventFun) end,
+ {reply, Result, State};
+
 handle_call({get, Who0, Key, Default}, _From, State) ->
  Who = case Who0 of
  me -> name(State);