anchor.diff:  %%% Helpers
   %%%===================================================================
   
  -request(#transport{socket = {Client, Path}}, Body) ->
  +request(#transport{socket = {Client, Path}}, Body, OnReplyFun) ->
       Headers = [{"Content-Type", "text/xml; charset=utf-8"}],
  -    {ok, _Status, _Headers, RBody, _Size, _Time} =
  +    {ok, _Status, _Headers, RBody, _Size, _Time} = Reply =
           fusco:request(Client, Path, 'POST', Headers, exml:to_iolist(Body), 2, infinity),
  +    OnReplyFun(Reply),
       RBody.
   
   close_requests(#state{requests=Reqs} = S) ->
  
positive.code:                 keepalive = proplists:get_value(keepalive, Args, true),
                  wait = Wait,
                  event_client = EventClient,
                  client = Client}}.
  
  
  handle_call(get_transport, _From, State) ->
  
negative.code:     {noreply, NNS};
  handle_info(_, State) ->
      {noreply, State}.
  
  
  terminate(_Reason, #state{client = Client, parser = Parser}) ->
      fusco:disconnect(Client),
      exml_stream:free_parser(Parser).
  
  
  code_change(_OldVsn, State, _Extra) ->
      {ok, State}.
  