fix: remove sqlite file header format check

This commit is contained in:
Tienson Qin
2026-05-03 22:58:10 +08:00
parent ac102e70fe
commit c647326d86

View File

@@ -209,20 +209,6 @@
(let [storage (platform/storage (platform/current))]
((:import-db storage) pool repo-path data)))
(def ^:private sqlite-file-header "SQLite format 3\u0000")
(defn- require-sqlite-payload
[repo data]
(let [payload (->uint8array data)]
(when-not (and (instance? js/Uint8Array payload)
(>= (.-byteLength payload) (count sqlite-file-header))
(= sqlite-file-header
(.decode (js/TextDecoder.) (.subarray payload 0 (count sqlite-file-header)))))
(throw (ex-info "invalid sqlite import data"
{:code :invalid-sqlite-import-data
:repo repo})))
payload))
(defn upsert-addr-content!
"Upsert addr+data-seq. Update sqlite-cli/upsert-addr-content! when making changes"
[db data]
@@ -933,7 +919,7 @@
[repo base64]
(when-not (string/blank? repo)
(p/let [pool (<get-opfs-pool repo)
data (require-sqlite-payload repo (worker-util/base64string-to-unit8array base64))
data (worker-util/base64string-to-unit8array base64)
_ (close-db! repo)
_ (<import-db pool data)
_ (start-db! repo {:import-type :sqlite-db})]