fix: all CLI scripts failing basic operations

Update sqlite.cli fns to match changes from #11483 in db-worker
This commit is contained in:
Gabriel Horner
2024-08-26 12:21:40 -04:00
parent de6c6aedd2
commit d2b4b15106
2 changed files with 36 additions and 24 deletions

View File

@@ -112,7 +112,7 @@
:bind #js [addr]}))))))))
(defn upsert-addr-content!
"Upsert addr+data-seq"
"Upsert addr+data-seq. Update sqlite-cli/upsert-addr-content! when making changes"
[repo data delete-addrs & {:keys [client-ops-db?] :or {client-ops-db? false}}]
(let [^Object db (worker-state/get-sqlite-conn repo (if client-ops-db? :client-ops :db))]
(assert (some? db) "sqlite db not exists")
@@ -128,6 +128,7 @@
:bind #js [addr]})))))))
(defn restore-data-from-addr
"Update sqlite-cli/restore-data-from-addr when making changes"
[repo addr & {:keys [client-ops-db?] :or {client-ops-db? false}}]
(let [^Object db (worker-state/get-sqlite-conn repo (if client-ops-db? :client-ops :db))]
(assert (some? db) "sqlite db not exists")
@@ -144,6 +145,7 @@
data)))))
(defn new-sqlite-storage
"Update sqlite-cli/new-sqlite-storage when making changes"
[repo _opts]
(reify IStorage
(-store [_ addr+data-seq delete-addrs]