guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Handle channel instances in create-small-backup

Browse source 
Otherwise this table is empty.
This commit is contained in:
Christopher Baines 2020-03-25 18:27:01 +00:00
parent b99854924a
commit 8af7130239
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scripts/guix-data-service-create-small-backup
View file

@ -73,6 +73,17 @@ WHERE guix_revision_id IN (
)
);
CREATE UNLOGGED TABLE tmp_channel_instances AS
SELECT *
FROM channel_instances
WHERE guix_revision_id IN (
SELECT id
FROM guix_revisions
WHERE commit IN (
SELECT commit FROM git_branches
)
);
CREATE UNLOGGED TABLE tmp_package_derivations AS
SELECT * FROM package_derivations WHERE id IN (
SELECT package_derivation_id FROM tmp_guix_revision_package_derivations
@ -85,6 +96,8 @@ WITH RECURSIVE derivation_ids(id) AS (
UNION
SELECT tmp_guix_revision_system_test_derivations.derivation_id
FROM tmp_guix_revision_system_test_derivations
UNION
SELECT tmp_channel_instances.derivation_id FROM tmp_channel_instances
)
UNION
SELECT derivation_outputs.derivation_id
@ -228,6 +241,9 @@ INSERT INTO guix_revision_package_derivations
INSERT INTO guix_revision_system_test_derivations
SELECT * FROM tmp_guix_revision_system_test_derivations;
INSERT INTO channel_instances
SELECT * FROM tmp_channel_instances;
INSERT INTO builds OVERRIDING SYSTEM VALUE
SELECT * FROM tmp_builds;