anchor.diff:  run({team, player, addition}, KeyGen, ValueGen, State) ->
       Key = integer_to_list(KeyGen()),
       Value = "Team member " ++ integer_to_list(ValueGen()),
  -    Result = riakc_pb_socket:modify_type(State#state.pid,
  +    Result = riakc_pb_socket:update_type(State#state.pid,
                        fun(M) ->
                                riakc_map:update(
                                       {<<"members">>, set},
  
positive.code:                 true ->
                      Value = hd(Members),
                      lager:info("Team read succeeded"),
                      Result2 = riakc_pb_socket:modify_type(State#state.pid,
                                       fun(M2) ->
                                               riakc_map:update(
                                                      {<<"members">>, set},
  
negative.code: %% Write information about the team.
  run({team, write}, KeyGen, _ValueGen, State) ->
      Key = integer_to_list(KeyGen()),
      Result = riakc_pb_socket:update_type(State#state.pid,
                       fun(M) ->
                               riakc_map:update(
                                      {<<"name">>, register},
  