anchor.diff:          %% Create resource
           {Body, Req1} = wrq:req_body(Req),
           Data = jsx:decode(Body, [return_maps, {labels, atom}]),
  -        Props = lists:foldl(fun post_props/2, [], maps:to_list(Data)),
  +        Props = lists:foldl(fun process_props/2, [], maps:to_list(Data)),
           {ok, Id} = m_rsc:insert(Props, Context),
           %% Create edges
           lists:foreach(
  
positive.code: %%% Internal functions
  %%%-----------------------------------------------------------------------------
  
  post_props({category, Value}, Acc) ->
      [{category, Value} | Acc];
  post_props({edges, _}, Acc) ->
      Acc;
  post_props({is_published, Value}, Acc) ->
      [{is_published, Value} | Acc];
  post_props({path, Value}, Acc) ->
      [{path, Value} | Acc];
  post_props({properties, Value}, Acc) ->
      lists:foldl(fun post_props/2, [], maps:to_list(Value)) ++ Acc;
  post_props(Trans = {_Key, _}, Acc) ->
      trans(Trans, Acc).
  
  trans({Key, Value}, Acc) when is_map(Value) ->
      [{Key, {trans, maps:to_list(Value)}} | Acc];
  trans({Key, Value}, Acc) ->
      [{Key, Value} | Acc].
  
  supported_search_args() ->
      ["cat", "hasobject", "hassubject", "sort"].
  
negative.code:         end
      catch
          _:Error ->
              Msg = io_lib:format("An error occurred while patching the resource: ~p",
                                  [Error]),
              MsgWithStackTrace = io_lib:format("~s~n~p", [Msg, erlang:get_stacktrace()]),
              lager:error(MsgWithStackTrace),
  