GC object table in a specific case

src/model/block.rs

@@ -259,7 +259,7 @@ impl BlockManager {
 			if let Err(e) = self.resync_iter(&mut must_exit).await {
 				warn!("Error in block resync loop: {}", e);
 				select! {
-					_ = tokio::time::sleep(Duration::from_secs(10)).fuse() => (),
+					_ = tokio::time::sleep(Duration::from_secs(1)).fuse() => (),
 					_ = must_exit.changed().fuse() => (),
 				}
 			}

src/model/object_table.rs

@@ -146,6 +146,9 @@ impl Entry<String, String> for Object {
 	fn sort_key(&self) -> &String {
 		&self.key
 	}
+	fn is_tombstone(&self) -> bool {
+		self.versions.len() == 1 && self.versions[0].state == ObjectVersionState::Complete(ObjectVersionData::DeleteMarker)
+	}
 }
 
 impl CRDT for Object {