anchor.diff:      %TODO: implement
       false.
   
  -update_token(_TokenMap, State) ->
  -    % TODO: implement
  -    {ok, State}.
  +add_credential_to_state(#{ token := T } = Cred, State) ->
  +    %TODO: change for keyfind will perform better
  +    #state{ token = TokenList, credentials = CredList} = State,
  +    NewTokenList = [T | TokenList],
  +    NewCredList = [Cred | CredList],
  +    NewState = State#state{
  +                    token = NewTokenList,
  +                    credentials = NewCredList
  +                },
  +    {ok, NewState}.
   
   remove_session_from_list(MonitorRef,Sessions) ->
       lists:keydelete(MonitorRef,2,Sessions).
  
positive.code: -export([handle_info/2]).
  -export([terminate/2]).
  -export([code_change/3]).
  
  -record(state, {
            uid = undefined,
            uidNumber = undefined,
            gidNumber = undefined,
            homeDirectory = undefined,
            user_ids = [],
            credentials = [],
            sessions = []
  }).
  
  %% API.
  
  
negative.code: 
  
  %% gen_server.
  
  -record(state, {
            uid = undefined,
            uidNumber = undefined,
            gidNumber = undefined,
            homeDirectory = undefined,
            user_ids = [],
            token = [],
            credentials = [],
            sessions = []
  }).
  
  init([]) ->
  	{ok, #state{}, 5000}.
  