anchor.diff:  	 priv_dir/1,
   	 get_location/1,
   	 add_json_response/2,
  +	 int_to_bitstring/1,
   	 meta_proplist/2,
   	 generate_etag/1,
   	 unix_timestamp/0,
  
positive.code: to_proplist(Collection) when is_list(Collection) ->
      lists:foldl(fun(Obj, Acc) -> [to_proplist(Obj)|Acc]
  		end, [], Collection).
  
  
  -spec generate_etag({object_type(), object()} | {collection_type(), {meta_data(), collection()}}) -> etag().
  
negative.code:      {<<"rels">>,
        [{<<"target">>, <<"/api/targets/", TId/bitstring>>}]}];
  to_proplist(#visit{id=Id, path_id=PId, geo_location=Loc, time=Time}) ->
      BinId = int_to_bitstring(Id),
      [{<<"id">>, BinId},
       {<<"href">>, <<"/api/visits/", BinId/bitstring>>},
       {<<"visitTime">>, Time},
  