anchor.diff:      Reply = priv_end_lease(Repo, Path),
       lager:info("Request received: {end_lease, ~p} -> Reply: ~p"
                 ,[{Repo, Path}, Reply]),
  +    {reply, Reply, State};
  +handle_call({lease_req, get_leases}, _From, State) ->
  +    Reply = priv_get_leases(),
  +    lager:info("Request received: {get_leases} -> Reply: ~p"
  +              ,[Reply]),
       {reply, Reply, State};
   handle_call(_Request, _From, State) ->
       Reply = ok,
  
positive.code: 
  %% API
  -export([start_link/1, stop/0,
           request_lease/3, end_lease/2]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  
negative.code: %%--------------------------------------------------------------------
  end_lease(Repo, Path) when is_binary(Repo), is_binary(Path) ->
      gen_server:call(?MODULE, {lease_req, end_lease, {Repo, Path}}).
  
  %%--------------------------------------------------------------------
  %% @doc
  %% Returns list of all active leases
  %%
  %% @spec get_leases() -> Leases
  %% @end
  %%--------------------------------------------------------------------
  -spec get_leases() -> [#lease{}].
  get_leases() ->
      gen_server:call(?MODULE, {lease_req, get_leases}).
  
  
  %%%===================================================================
  %%% gen_server callbacks
  