anchor.diff:          Id = State#state.rsc_id,
           {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)),
           EscapeText = true,
           case m_rsc:update(Id, Props, EscapeText, Context) of
               {ok, _} ->
  
positive.code:         end
      catch
          _:Error ->
              Msg = io_lib:format("An error occurred while storing the new resource: ~p",
                                  [Error]),
              MsgWithStackTrace = io_lib:format("~s~n~p", [Msg, erlang:get_stacktrace()]),
              lager:error(MsgWithStackTrace),
  
negative.code: %%% Internal functions
  %%%-----------------------------------------------------------------------------
  
  process_props({edges, _}, Acc) ->
      Acc;
  process_props({properties, Value}, Acc) ->
      lists:foldl(fun process_props/2, [], maps:to_list(Value)) ++ Acc;
  process_props(Value, Acc) ->
      [Value | Acc].
  
  supported_search_args() ->
      ["cat", "hasobject", "hassubject", "sort"].
  