anchor.diff:  run({game, completed}, KeyGen, ValueGen, State) ->
       Key = integer_to_list(KeyGen()),
       Value = ValueGen(),
  -    Result = riakc_pb_socket:update_type(State#state.pid,
  +    Result = riakc_pb_socket:modify_type(State#state.pid,
                        fun(M) ->
                                riakc_map:update(
                                       {<<"score">>, counter},
  
positive.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},
                                      fun(R) ->
                                          riakc_register:set(
                                              list_to_binary("Team " ++ Key), R)
                                      end, M)
                       end,
                       State#state.bucket, Key, [create]),
      case Result of
          ok ->
              lager:info("Team write succeeded."),
              {ok, State};
          {ok, _} ->
              lager:info("Team write succeeded."),
              {ok, State};
          {error, Reason} ->
              lager:info("Team write failed, error: ~p", [Reason]),
  
negative.code:                                         Options),
      case Result of
          {ok, _} ->
              {ok, State};
          {error, {notfound, _}} ->
              lager:info("Team does not exist yet."),
  