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:update_type(State#state.pid,
  +    Result = riakc_pb_socket:modify_type(State#state.pid,
                        fun(M) ->
                                riakc_map:update(
                                       {<<"members">>, set},
  
positive.code:                      State#state.bucket, Key, [create]),
      case Result of
          ok ->
              lager:info("Team player addition succeeded."),
              {ok, State};
          {ok, _} ->
              lager:info("Team player addition succeeded."),
  
negative.code:                      State#state.bucket, Key, [create]),
      case Result of
          ok ->
              {ok, State};
          {ok, _} ->
              {ok, State};
          {error, Reason} ->
              lager:info("Score change failed, error: ~p", [Reason]),
  