anchor.diff:  
   stop() ->
   	gen_server:call(?MODULE,stop).
  -
   get(#request{ path = Path}) ->
   	gen_server:call(?MODULE, { get, Path });
   get(Res = #response{}) ->
  -	Res.
  +	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.
  +	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.
  +	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.
  +	Res;
  +delete(Path) when is_list(Path) ->
  +	#response{ body = Object } = gen_server:call(?MODULE, { delete, Path }),
  +	Object.
  +
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   % Private API
  
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: list_to_filters(List) ->
  	list_to_filters(List,[]).
  
  