From ea8e0b90033e2f2ccd2b62e81cd546aefb3d0e07 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Tue, 7 Sep 2021 14:41:23 +0200 Subject: Allow for type file to be missing when data file is there This is an edge case that we go through some lengths to avoid by always deleting the type file when the data file couldn't be stored. However, if the process is simply killed before we can delete the file, we may end in an inconsistent state. Hopefully this avoids that situation. --- ugarit-backend-s3.scm | 1 + 1 file changed, 1 insertion(+) (limited to 'ugarit-backend-s3.scm') diff --git a/ugarit-backend-s3.scm b/ugarit-backend-s3.scm index 4708418..2c59d20 100644 --- a/ugarit-backend-s3.scm +++ b/ugarit-backend-s3.scm @@ -164,6 +164,7 @@ (lambda () (void)) ; flush! - a no-op for us (lambda (key) ; exists? (and (object-exists? (make-name key ".data")) + (object-exists? (make-name key ".type")) (get-sexp (make-name key ".type")))) (lambda (key) ; get (maybe-missing (get-u8vector (make-name key ".data")))) -- cgit v1.2.3