anchor.diff:  -spec update_record(RsrcType :: binary(), Id :: binary(),
       Data :: proplists:proplist()) ->
       ok | gui_error:error_result().
  -update_record(<<"user">>, ?CURRENT_USER_ID, Data) ->
  +update_record(<<"user">>, UserId, Data) ->
  +    % FIXME: validate UserId
       case Data of
           [{<<"defaultSpaceId">>, DefaultSpace}] ->
               UserAuth = op_gui_utils:get_user_auth(),
  
positive.code: -export([find/2, find_all/1, find_query/2]).
  -export([create_record/2, update_record/3, delete_record/2]).
  -export([user_record/2]).
  
  -define(CURRENT_USER_ID, <<"0">>).
  
  %%%===================================================================
  %%% data_backend_behaviour callbacks
  
negative.code: %%--------------------------------------------------------------------
  -spec find(ResourceType :: binary(), Id :: binary()) ->
      {ok, proplists:proplist()} | gui_error:error_result().
  find(<<"user">>, UserId) ->
      UserAuth = op_gui_utils:get_user_auth(),
      case gui_session:get_user_id() of
          UserId ->
              {ok, user_record(UserAuth, UserId)};
          _ ->
              gui_error:unauthorized()
      end.
  
  
  %%--------------------------------------------------------------------
  