anchor.diff:  check_accept_header(Module,
   		#mod{parsed_header = RequestHeaders, data = Data} = ModData) ->
   	case lists:keyfind("accept", 1, RequestHeaders) of
  -		{_, Accept} ->
  +		{_Other, Accept} ->
   			AcceptTypes = string:tokens(Accept, ", "),
   			case lists:member("*/*", AcceptTypes) of
   				false ->
  
positive.code: 	case lists:keyfind("content-type", 1, RequestHeaders) of
  		false when Method == "DELETE"; Method == "GET" ->
  			check_accept_header(Module, ModData#mod{data = [{resource, Module} | Data]});
  		{_, []} when Method == "DELETE"; Method == "GET" ->
  			check_accept_header(Module, ModData#mod{data = [{resource, Module} | Data]});
  		{_, ContentType} ->
  			F = fun(AcceptedType) ->
  					lists:prefix(AcceptedType, ContentType)
  			end,
  			case lists:any(F, Module:content_types_accepted()) of
  				true ->
  					check_accept_header(Module, ModData#mod{data = [{resource, Module},
  							{content_type,  ContentType} | Data]});
  				false ->
  					Problem = #{type => "https://datatracker.ietf.org/doc/html/rfc7231#section-6.5.13",
  							title => "Unsupported Media Type",
  							detail => "The client provided Content-Type which the"
  									" the server does not support.",
  							code => "", status => 415},
  					{ContentType, ResponseBody} = ocs_rest:format_problem(Problem, RequestHeaders),
  					Size = integer_to_list(iolist_size(ResponseBody)),
  					ResponseHeaders = [{content_length, Size}, {content_type, ContentType}],
  					send(ModData, 415, ResponseHeaders, ResponseBody),
  					{proceed, [{response, {already_sent, 415, Size}} | Data]}
  			end;
  
negative.code: 					title => "Bad Request",
  					detail => "The client failed to provide a Content-Type header",
  					code => "", status => 400},
  			{ResponseContentType, ResponseBody} = ocs_rest:format_problem(Problem, RequestHeaders),
  			Size = integer_to_list(iolist_size(ResponseBody)),
  			ResponseHeaders = [{content_length, Size}, {content_type, ResponseContentType}],
  			send(ModData, 415, ResponseHeaders, ResponseBody),
  			{proceed, [{response, {already_sent, 400, Size}} | Data]}
  	end.
  