anchor.diff:  %% interesting_value_edge(X) ->
   %%     interesting_install_edge(X).
   
  -calc_configs(Commit, #cstate{re=RE, table=Cache, storage=StoreMod}=State) ->
  -    Tree = wallaby_commit:get_tree(Commit, StoreMod),
  +calc_configs(Commit, CommitObj, #cstate{re=RE, table=Cache, storage=StoreMod}=State) ->
  +    Tree = wallaroo_commit:get_tree(CommitObj, StoreMod),
       {Entities, Relationships} = wallaby_graph:extract_graph(Tree, StoreMod),
       Installs = digraph:new([private]),
       [digraph:add_vertex(Installs, Ent) || Ent <- Entities, interesting_install_vertex(Ent)],
  
positive.code: 	    Default
      end.
  
  generic_find(Kind, Name, Commit, State) ->
      generic_find(Kind, Name, Commit, State, []).
  
  generic_find(Kind, Name, Commit, State, Default) ->
      case cache_find(Kind, Name, Commit, State) of
  	{value, Config} ->
  	    {value, Config};
  	 find_failed ->
  	    calc_configs(Commit, State),
  	    cache_fetch(Kind, Name, Commit, State, Default)
      end.
  
negative.code: has(Kind, Name, Commit) ->
      gen_server:call(?SERVER, {has_config, Kind, Name, Commit}).
  
  for(Kind, Name, Commit) ->
      gen_server:call(?SERVER, {config_for, Kind, Name, Commit}).
  
  cache_dump() ->
      gen_server:call(?SERVER, {cache_dump}).
  
  %%% gen_server callbacks
  handle_cast(stop, State) ->
      {stop, normal, State}.
  
  handle_call({cache_dump}, _From, #cstate{table=C}=State) ->
      {reply, ets:tab2list(C), State};
  handle_call({has_config, Kind, Name, Commit}, _From, #cstate{storage=StoreMod}=State) ->
      Result = generic_lookup(Kind, Name, Commit, State, false),
      case Result of
  	{value, Config} when is_list(Config) ->
  	    {reply, true, State};
  	_ ->
  	    {reply, Result, State}
      end;
  handle_call({config_for, Kind, Name, Commit}, _From, #cstate{re=RE, table=Cache, storage=StoreMod}=State) ->
      {value, Config} = generic_lookup(Kind, Name, Commit, State, []),
      {reply, Config, State}.
  
  handle_info(_X, State) ->
      {noreply, State}.
  