anchor.diff:  %%% Internal functions
   %%%===================================================================
   
  -
  +-spec full_bkey(binary(), binary(), binary(), pos_integer()) -> {binary(), binary()}.
  +%% @private
  +full_bkey(Bucket, Key, UUID, BlockNumber) ->
  +    PrefixedBucket = riak_moss_utils:to_bucket_name(blocks, Bucket),
  +    FullKey = riak_moss_lfs_utils:block_name(Key, UUID, BlockNumber),
  +    {PrefixedBucket, FullKey}.
  
positive.code: %%                                  {stop, Reason, State}
  %% @end
  %%--------------------------------------------------------------------
  handle_cast(_Msg, State) ->
      {noreply, State}.
  
  
negative.code: %% @end
  %%--------------------------------------------------------------------
  init([]) ->
      case riak_moss_utils:riak_connection() of
          {ok, RiakPid} ->
              {ok, #state{riakc_pid=RiakPid}};
          {error, Reason} ->
              lager:error("Failed to establish connection to Riak. Reason: ~p",
                          [Reason]),
              {stop, riak_connect_failed}
      end.
  
  -spec get_block(pid(), binary(), binary(), binary(), pos_integer()) -> ok.
  get_block(Pid, Bucket, Key, UUID, BlockNumber) ->
      gen_server:cast(Pid, {get_block, self(), Bucket, Key, UUID, BlockNumber}).
  
  -spec put_block(pid(), binary(), binary(), binary(), pos_integer(), binary()) -> ok.
  put_block(Pid, Bucket, Key, UUID, BlockNumber, Value) ->
      gen_server:cast(Pid, {put_block, self(), Bucket, Key, UUID, BlockNumber, Value}).
  
  -spec delete_block(pid(), binary(), binary(), binary(), pos_integer()) -> ok.
  delete_block(Pid, Bucket, Key, UUID, BlockNumber) ->
      gen_server:cast(Pid, {delete_block, self(), Bucket, Key, UUID, BlockNumber}).
  
  %%--------------------------------------------------------------------
  %% @private
  