anchor.diff:  -define(POOL_TIMEOUT, 1000).
   
   -record(state, {
  -    orig_pools  :: dict(),
  -    curr_pools  :: dict()
  +    orig_pools      :: dict(),
  +    curr_pools      :: dict(),
  +    default_app     :: atom()
   }).
   
   %%%===================================================================
  
positive.code:         [{AppName, PoolName} || {AppName, AppPools} <- Config, {PoolName, _PoolConfig} <- AppPools]
      ),
  
      {ok, #state{orig_pools = Pools, curr_pools = Pools}}.
  
  handle_call({get_pool, ForApp}, _From, State = #state{orig_pools = OPools, curr_pools = CPools}) ->
      case dict:find(ForApp, CPools) of
  
negative.code: 
  init([]) ->
      {ok, Config} = application:get_env(riak_pool, pools),
      DefaultApp = case application:get_env(riak_pool, default_app) of
          {ok, _DefaultApp} ->
              _DefaultApp;
          undefined ->
              undefined
      end,
      
      Pools = lists:foldl(
          fun ({AppName, PoolName}, Acc) ->
              dict:append(AppName, PoolName, Acc)
  