anchor.diff:      case gen_tcp:send(Socket, Response) of
           ok -> ok;
           {error, closed} ->
  -            Mod:handle_event(client_closed, [before_response], Args),
  +            handle_event(Mod, client_closed, [before_response], Args),
               ok
       end.
   
  
positive.code: check_max_size(Socket, ContentLength, Buffer, Opts, {Mod, Args}) ->
      case ContentLength > max_body_size(Opts) of
          true ->
              Mod:handle_event(bad_request, [{body_size, ContentLength}], Args),
  
              %% To send a response, we must first receive anything the
              %% client is sending. To avoid allowing clients to use all
  
negative.code:                         {ok, Data} ->
                              {<<Buffer/binary, Data/binary>>, <<>>};
                          {error, closed} ->
                              handle_event(Mod, client_closed, [receiving_body], Args),
                              ok = gen_tcp:close(Socket),
                              exit(normal);
                          {error, timeout} ->
                              handle_event(Mod, client_timeout, [receiving_body], Args),
                              ok = gen_tcp:close(Socket),
                              exit(normal)
                      end;
  