anchor.diff:      NewList = parse_line(Line,List),
       parse_lines(NewLine,IoDev,NewList).
   
  -parse_line(Line,List) ->
  +parse_line(Line,Tuple) ->
       case jsx:is_json(Line) of
           true -> 
               Entry = jsx:decode(Line,[return_maps,{labels,attempt_atom}]),
  -            verify_and_add(Entry,List);
  +            verify_and_add(Entry,Tuple);
           false ->
  -            List
  +            Tuple 
       end.
   
  -verify_and_add(#{iss := Iss, sub := Sub, uid := Uid, uidNumber := UidNumber,
  -                 gidNumber := GidNumber, homeDirectory := HomeDir}, List ) when
  -      is_binary(Iss), is_binary(Sub), is_binary(Uid), is_integer(UidNumber),
  +verify_and_add(#{user := User, uid := Uid, uidNumber := UidNumber,
  +                 gidNumber := GidNumber, homeDirectory := HomeDir}, {Mappings,
  +                                                                     Users} ) when
  +      is_binary(User), is_binary(Uid), is_integer(UidNumber),
         is_integer(GidNumber), is_binary(HomeDir) ->
  -    [{{Iss, Sub}, Uid, UidNumber, GidNumber, HomeDir} | List];
  -verify_and_add(_Entry, List) ->
  -    List.
  -
  -
  +    {Mappings, [{User, Uid, UidNumber, GidNumber, HomeDir} | Users]};
  +verify_and_add(#{iss := Iss, sub := Sub, user := User}, {Mappings, Users}) when
  +      is_binary(Iss), is_binary(Sub), is_binary(User) ->
  +    {[{{Iss, Sub}, User} | Mappings], Users};
  +verify_and_add(_Entry, Tuple) ->
  +    Tuple.
  +
  +
  
positive.code: 
  
  perform_file_lookup(#{iss := Iss, sub := Sub}, #state{config=Config} = State) ->
      #{ data := Data } = Config,
      case lists:keyfind({Iss, Sub},1,Data) of
          false -> {{error, not_found},State};
          E -> Result = data_entry_to_result(E),
               {Result, State}
      end.
  
  data_entry_to_result({_, Uid, UidNumber, GidNumber, HomeDir}) ->
      {ok, #{uid => Uid, 
              uidNumber => UidNumber, 
              gidNumber => GidNumber, 
              homeDirectory => HomeDir}}.
  
negative.code: parse_file(File) ->
      {ok, IoDev} = file:open(File,[read, binary]),
      Line = file:read_line(IoDev),
      parse_lines(Line,IoDev,{[],[]}).
  
  
  parse_lines(eof,IoDev,List) ->
  