anchor.diff:  -export([start_link/0,
            add_route/1,
            remove_route/1,
  -         remove_resource/1]).
  +         remove_resource/1,
  +         get_routes/0]).
   
   %% gen_server callbacks
   -export([init/1,
  
positive.code:   {ok, []}.
  
  %% @private
  handle_call(get_routes, _From, State) ->
      {reply, get_dispatch_list(), State};
  
  handle_call({remove_resource, Resource}, _From, State) ->
      DL = [D || D <- get_dispatch_list(),
                 filter_by_resource(D, Resource)],
      {reply, set_dispatch_list(DL), State};
  
  handle_call({remove_route, Route}, _From, State) ->
      DL = [D || D <- get_dispatch_list(),
  
negative.code: remove_resource(Resource) when is_atom(Resource) ->
      gen_server:call(?SERVER, {remove_resource, Resource}, infinity).
  
  %% @spec get_routes() -> [{[], res, []}]
  %% @doc Retrieve a list of routes and resources set in webmachine's
  %%      route table.
  get_routes() ->
      gen_server:call(?SERVER, get_routes, infinity).
  
  %% @spec start_link() -> {ok, pid()} | {error, any()}
  %% @doc Starts the webmachine_router gen_server.
  start_link() ->
  