anchor.diff:      [Builds] = builds_to_proplist(Objects),
   	  {reply, {ok, Builds}, State};
   
  -handle_call(get_projects, _From, State) ->
  -    Projects = keys(?TABLE),
  -    {reply, {ok, Projects}, State};
  -
   handle_call({set_build_state, ID, BRState}, _From, State) ->
       BID = uuid:to_binary(ID),
       ok = lager:debug("ID ~p~n", [BID]),
  
positive.code: builds_to_proplist([]) ->
      [].
  
  % Get keys of a table
  keys(TableName) ->
      FirstKey = dets:first(TableName),
          keys(TableName, FirstKey, [FirstKey]).
  
  keys(_TableName, '$end_of_table', ['$end_of_table'|Acc]) ->
      Acc;
  keys(TableName, CurrentKey, Acc) ->
      NextKey = dets:next(TableName, CurrentKey),
      keys(TableName, NextKey, [NextKey|Acc]).
  
  handle_cast(_Msg, State) ->
  	{noreply, State}.
  
  
negative.code: -export([create/3,
           get_build/2,
           get_builds/1,
           set_build_state/2]).
  
  -record(state, {
  