anchor.diff:      receive
           refresh ->
               error_logger:info_msg("Acceptor refreshing~n"),
  -            ?MODULE:acceptor(ListenSocket, Service, Handler)
  +            ?MODULE:acceptor(ListenSocket, Service, Handler);
  +        stop ->
  +            ok
       after 0      -> acceptor(ListenSocket, Service, Handler)
       end.
  
positive.code: -behaviour(gen_server).
  
  %% API
  -export([start_link/3]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  
negative.code: %%--------------------------------------------------------------------
  start_link(Port, Service, HandlerModule) when is_integer(Port), is_atom(HandlerModule) ->
      gen_server:start_link({local, ?SERVER}, ?MODULE, {Port, Service, HandlerModule}, []).
  
  
  %%--------------------------------------------------------------------
  %% Function: stop(Pid) -> ok, {error, Reason}
  %% Description: Stops the server.
  %%--------------------------------------------------------------------
  stop(Pid) when is_pid(Pid) ->
      gen_server:call(Pid, stop).
  
  
  %%====================================================================
  %% gen_server callbacks
  