anchor.diff:  handle_info({'DOWN', MonitorRef, process, _Object, _Info}, #state{sessions=Sessions}=State) ->
       NewSessions = remove_session_from_list(MonitorRef,Sessions),
       shutdown_if_done(NewSessions,State);
  +handle_info(timeout, State) ->
  +    {stop,normal,State};
   handle_info(_Info, State) ->
   	{noreply, State}.
   
  
positive.code: -module(tts_user).
  -behaviour(gen_server).
  
  %% API.
  -export([start_link/0]).
  -export([set_info/2]).
  -export([connect_session/2]).
  
  
  %% gen_server.
  
negative.code:     %TODO: implement
      false.
  
  update_token(_TokenMap, State) ->
      % TODO: implement
      {ok, State}.
  
  remove_session_from_list(MonitorRef,Sessions) ->
      lists:keydelete(MonitorRef,2,Sessions).
  