Minimal SQLite key-value store for OCaml
Fix bottle name parsing for date-hash version format
bottle_checksums split on the last "-" to extract the binary name,
but date-hash versions (20260401-d14d5fc) have a "-" in them. This
produced names like "cascade-20260401" instead of "cascade".
Now finds the first "-" followed by a digit (the version's YYYYMMDD
prefix), correctly splitting "cascade-20260401-d14d5fc..." into
name="cascade" and version="20260401-d14d5fc...".
+4
+4
lib/sqlite.ml
+4
lib/sqlite.ml
···
777
777
kv.next_rowid <- s.ks_next
778
778
| None -> ())
779
779
snap.named_snaps;
780
+
(* Restore schema state *)
781
+
t.all_tables <- snap.all_tables_snap;
782
+
t.named_tables <- snap.named_tables_snap;
783
+
t.extra_master <- snap.extra_master_snap;
780
784
(* Restore insert_rowids *)
781
785
Hashtbl.reset t.insert_rowids;
782
786
List.iter