anchor.diff:  -export([create/3,
            get_build/2,
            get_builds/1,
  -         get_projects/0,
            set_build_state/2]).
   
   -record(state, {
  
positive.code: -spec get_build(nonempty_list(), nonempty_list()) -> {ok, nonempty_list()}.
  get_build(Project, ID) when is_list(ID)->
      gen_server:call(?MODULE, {get_build, Project, ID}).
  
  get_projects() ->
      gen_server:call(?MODULE, get_projects).
  
  -spec set_build_state(nonempty_list(), atom()) -> ok.
  set_build_state(ID, State) ->
  
negative.code:     [Builds] = builds_to_proplist(Objects),
  	  {reply, {ok, Builds}, State};
  
  handle_call({set_build_state, ID, BRState}, _From, State) ->
      BID = uuid:to_binary(ID),
      ok = lager:debug("ID ~p~n", [BID]),
  