anchor.diff:  
   -spec accept(pid(), port(), callback()) -> ok.
   %% @doc: Accept on the socket until a client connects. Handles the
  -%% request and loops if we're using keep alive or chunked transfer.
  +%% request, then loops if we're using keep alive or chunked transfer.
   accept(Server, ListenSocket, Callback) ->
       case catch gen_tcp:accept(ListenSocket, 1000) of
           {ok, Socket} ->
               t(accepted),
               gen_server:cast(Server, accepted),
  -            ?MODULE:handle_request(Socket, Callback),
  -            ok;
  +            ?MODULE:handle_request(Socket, Callback);
           {error, timeout} ->
               ?MODULE:accept(Server, ListenSocket, Callback);
           {error, closed} ->
  
positive.code:     gen_tcp:send(Socket, Response).
  
  
  
  get_request(Socket, Callback) ->
      get_request(Socket, <<>>, Callback).
  
  
negative.code:                     {Method, RawPath, Version, Rest};
                  {ok, {http_error, _}, _} ->
                      Mod:handle_event(request_parse_error, [NewBuffer], Args),
                      gen_tcp:send(Socket, status(400)),
                      gen_tcp:close(Socket),
                      exit(normal);
                  {more, _} ->
                      get_request(Socket, NewBuffer, Callback)
              end;
  