anchor.diff:  -export([allowed_methods/2]).
   -export([resource_exists/2]).
   -export([content_types_provided/2]).
  +-export([content_types_accepted/2]).
   -export([read_json/2]).
  +-export([write_json/2]).
   
   -record(state, {token, acl}).
   
  
positive.code: content_types_provided(Req, State) ->
      {[{<<"application/json">>, read_json}], Req, State}.
  
  read_json(Req, #state{acl = Acl} = State) ->
      {jiffy:encode({[{Path, Access} || {Path, Access} <- Acl]}), Req, State}.
  
negative.code: rest_init(Req, _Opts) ->
      {ok, cloudstore_security:add_cors(Req), #state{}}.
  
  path_to_hprops(Path) ->
      Segments = [case Segment of "*" -> {expr, star}; _ -> list_to_binary(Segment) end || Segment <- string:tokens(binary_to_list(Path), "/")],
      lists:append(lists:foldl(fun({expr, star}, R) -> [[] | R]; (Value, R) -> [[list_to_binary(integer_to_list(length(R))), Value] | R] end, [], Segments)).
  
  hprops_to_path(HProps) ->
      R = hprops_to_path(HProps, []),
  