anchor.diff:  list_to_filters(List) ->
   	list_to_filters(List,[]).
   
  -
  
positive.code: 	end,[ json:decode(Object) || #rest{ object = Object } <- Objects]).
  
  
  to_json(Value) ->
  	json:decode(list_to_binary(Value)).
  
  list_to_filters([],Acc) ->
  	Acc;
  
negative.code: 
  stop() ->
  	gen_server:call(?MODULE,stop).
  get(#request{ path = Path}) ->
  	gen_server:call(?MODULE, { get, Path });
  get(Res = #response{}) ->
  	Res;
  get(Path) when is_list(Path) ->
  	#response{ body = Object } = gen_server:call(?MODULE, { get, Path }),
  	Object.
  
  put(#request{ path = Path, body = Body }) ->
  	gen_server:call(?MODULE, { put, Path, Body });
  put(Res = #response{}) ->
  	Res;
  put({Path,Body}) when is_list(Path), is_binary(Body) ->
  	#response{ body = Object } = gen_server:call(?MODULE, { put, Path, Body }),
  	Object.
  
  post(#request{ path = Path, body = Body }) ->
  	gen_server:call(?MODULE, { post, Path, Body });
  post(Res = #response{}) ->
  	Res;
  post({Path, Body }) ->
  	#response{ body = Object } = gen_server:call(?MODULE, { post, Path, Body }),
  	Object.	
  
  delete(#request{ path = Path }) ->
  	gen_server:call(?MODULE, { delete, Path });
  delete(Res = #response{}) ->
  	Res;
  delete(Path) when is_list(Path) ->
  	#response{ body = Object } = gen_server:call(?MODULE, { delete, Path }),
  	Object.
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  % Private API
  