From f379c5c8b6fafdd220eab05d322883017579e81a Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Thu, 7 Nov 2024 15:21:32 -0500
Subject: [PATCH] fix a bug

---
 R/class_store_repository_cas.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/class_store_repository_cas.R b/R/class_store_repository_cas.R
index 16c7194e..c55d7af4 100644
--- a/R/class_store_repository_cas.R
+++ b/R/class_store_repository_cas.R
@@ -70,7 +70,7 @@ store_read_object.tar_repository_cas <- function(store, file) {
 #' @export
 store_has_correct_hash.tar_repository_cas <- function(store, file) {
   lookup <- tar_repository_cas_lookup(store)
-  key <- .subset2(.subset2(store, "file"), "hash")
+  key <- .subset2(file, "hash")
   if (lookup_missing(lookup = lookup, name = key)) {
     value <- store_repository_cas_call_method(
       store = store,