anchor.diff:  %% @spec start_link() -> {ok,Pid} | ignore | {error,Error}
   %% @doc Starts the server
   start_link(Args) when is_list(Args) ->
  -    gen_server:start_link({local, ?MODULE}, ?MODULE, Args, []).
  +    gen_server:start_link(?MODULE, Args, []).
   
   %%====================================================================
   %% gen_server callbacks
  
positive.code: %%                                       {noreply, State, Timeout} |
  %%                                       {stop, Reason, State}
  %% @doc Handling all non call/cast messages
  handle_info({'EXIT', Pid, restarting}, State=#state{twitter_pid=Pid}) ->
      ?DEBUG("Restarting"),
      timer:sleep(500),
      {noreply, restart_http(State)};
  
  handle_info({'EXIT', Pid, {error, Reason}}, State=#state{twitter_pid=Pid}) ->
      ?DEBUG(Reason),
      timer:sleep(15000),
      {noreply, restart_http(State)};
  
  handle_info(_Info, State) ->
      ?DEBUG(_Info),
      {noreply, State}.
  
  restart_http(State=#state{context=Context}) ->
      NewPid = start_following(Context),
      State#state{twitter_pid=NewPid}.
      
  
  %% @spec terminate(Reason, State) -> void()
  %% @doc This function is called by a gen_server when it is about to
  
negative.code: handle_call(Message, _From, State) ->
      {stop, {unknown_call, Message}, State}.
  
  handle_cast({restart_twitter, _Context}, #state{context=Context,twitter_pid=Pid}=State) ->
      case Pid of
          undefined ->
              %% not running
              Pid2 = start_following(Context),
              {noreply, #state{context=Context,twitter_pid=Pid2}};
          _ ->
              %% Exit the process; will be started again.
              erlang:exit(Pid, restarting),
              {noreply, State#state{twitter_pid=undefined}}
      end;
  
  handle_cast(Message, State) ->
  