summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--gnu/packages/astronomy.scm11
-rw-r--r--gnu/packages/bioinformatics.scm15
-rw-r--r--gnu/packages/containers.scm76
-rw-r--r--gnu/packages/databases.scm11
-rw-r--r--gnu/packages/debug.scm10
-rw-r--r--gnu/packages/electronics.scm105
-rw-r--r--gnu/packages/emacs-xyz.scm11
-rw-r--r--gnu/packages/emulators.scm85
-rw-r--r--gnu/packages/game-development.scm10
-rw-r--r--gnu/packages/gnome.scm15
-rw-r--r--gnu/packages/golang-apps.scm10
-rw-r--r--gnu/packages/golang-build.scm33
-rw-r--r--gnu/packages/golang-check.scm10
-rw-r--r--gnu/packages/golang-web.scm871
-rw-r--r--gnu/packages/golang-xyz.scm226
-rw-r--r--gnu/packages/image-processing.scm22
-rw-r--r--gnu/packages/ipfs.scm16
-rw-r--r--gnu/packages/kubernetes.scm30
-rw-r--r--gnu/packages/mail.scm18
-rw-r--r--gnu/packages/mpi.scm11
-rw-r--r--gnu/packages/protobuf.scm21
-rw-r--r--gnu/packages/python-science.scm30
-rw-r--r--gnu/packages/specifications.scm18
-rw-r--r--gnu/packages/taler.scm11
-rw-r--r--gnu/packages/version-control.scm10
-rw-r--r--gnu/packages/vnc.scm10
26 files changed, 222 insertions, 1474 deletions
diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm
index 4c8c5a0dc47..270888d0a59 100644
--- a/gnu/packages/astronomy.scm
+++ b/gnu/packages/astronomy.scm
@@ -2019,18 +2019,9 @@ R. Seaman's protocol}
2019 (file-name (git-file-name name version)) 2019 (file-name (git-file-name name version))
2020 (sha256 2020 (sha256
2021 (base32 "0n2jzlpwvjgj8ydg7hsqxnvy8s9pdi5z96id0231kgi87pyfkh7s")) 2021 (base32 "0n2jzlpwvjgj8ydg7hsqxnvy8s9pdi5z96id0231kgi87pyfkh7s"))
2022 (modules '((guix build utils) 2022 (modules '((guix build utils)))
2023 (ice-9 ftw)
2024 (srfi srfi-26)))
2025 (snippet 2023 (snippet
2026 #~(begin 2024 #~(begin
2027 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
2028 (define (delete-all-but directory . preserve)
2029 (with-directory-excursion directory
2030 (let* ((pred (negate (cut member <>
2031 (cons* "." ".." preserve))))
2032 (items (scandir "." pred)))
2033 (for-each (cut delete-file-recursively <>) items))))
2034 (delete-all-but "thirdparty" "thirdparty.cmake"))))) 2025 (delete-all-but "thirdparty" "thirdparty.cmake")))))
2035 (build-system cmake-build-system) 2026 (build-system cmake-build-system)
2036 (arguments 2027 (arguments
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 47144a8cd41..da6bd537f4e 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -3833,20 +3833,13 @@ familiar to anyone with experience of scikit-learn or scipy.")
3833 (file-name (git-file-name name version)) 3833 (file-name (git-file-name name version))
3834 (sha256 3834 (sha256
3835 (base32 "0hznpj15kx2sla16wlmcqz21n2vi2qb1493v30vz75hnm1m4iwm1")) 3835 (base32 "0hznpj15kx2sla16wlmcqz21n2vi2qb1493v30vz75hnm1m4iwm1"))
3836 (modules '((guix build utils) 3836 (modules '((guix build utils)))
3837 (ice-9 ftw)))
3838 (snippet 3837 (snippet
3839 #~(begin 3838 #~(begin
3840 ;; Delete everything except for examples directory: 3839 ;; Delete everything except for examples directory:
3841 (define (delete-except exceptions) 3840 (delete-all-but ".""pysnptools" "tests")
3842 (lambda (file) 3841 (delete-all-but "pysnptools" "examples")
3843 (unless (member file `("." ".." ,@exceptions)) 3842 (delete-all-but "tests" "datasets"))))))
3844 (delete-file-recursively file))))
3845 (for-each (delete-except '("pysnptools" "tests")) (scandir "."))
3846 (with-directory-excursion "pysnptools"
3847 (for-each (delete-except '("examples")) (scandir ".")))
3848 (with-directory-excursion "tests"
3849 (for-each (delete-except '("datasets")) (scandir "."))))))))
3850 3843
3851(define-public python-pysnptools 3844(define-public python-pysnptools
3852 (package 3845 (package
diff --git a/gnu/packages/containers.scm b/gnu/packages/containers.scm
index dc6612c17f9..976c565c072 100644
--- a/gnu/packages/containers.scm
+++ b/gnu/packages/containers.scm
@@ -491,25 +491,8 @@ The binary is called @command{gvproxy}.")
491 (file-name (git-file-name name version)) 491 (file-name (git-file-name name version))
492 (sha256 492 (sha256
493 (base32 "0jg1wfbr6rva24cz6q6d73wgaridzkh9sclzm2dwxpiwmbkcas38")) 493 (base32 "0jg1wfbr6rva24cz6q6d73wgaridzkh9sclzm2dwxpiwmbkcas38"))
494 (modules '((guix build utils) 494 (modules '((guix build utils)))
495 (ice-9 ftw) 495 (snippet #~(delete-all-but "." "schema"))))
496 (srfi srfi-26)))
497 (snippet
498 #~(begin
499 (define (delete-all-but directory . preserve)
500 (define (directory? x)
501 (and=> (stat x #f)
502 (compose (cut eq? 'directory <>) stat:type)))
503 (with-directory-excursion directory
504 (let* ((pred
505 (negate (cut member <> (append '("." "..") preserve))))
506 (items (scandir "." pred)))
507 (for-each (lambda (item)
508 (if (directory? item)
509 (delete-file-recursively item)
510 (delete-file item)))
511 items))))
512 (delete-all-but "." "schema")))))
513 (build-system go-build-system) 496 (build-system go-build-system)
514 (arguments 497 (arguments
515 (list 498 (list
@@ -621,24 +604,9 @@ unprivileged user, known as \"Rootless mode\".")
621 (file-name (git-file-name name version)) 604 (file-name (git-file-name name version))
622 (sha256 605 (sha256
623 (base32 "040snqsg3il98pz9w8442wdzwm2rm07yqbch87f4jic4p4s0707s")) 606 (base32 "040snqsg3il98pz9w8442wdzwm2rm07yqbch87f4jic4p4s0707s"))
624 (modules '((guix build utils) 607 (modules '((guix build utils)))
625 (ice-9 ftw)
626 (srfi srfi-26)))
627 (snippet 608 (snippet
628 #~(begin 609 #~(begin
629 (define (delete-all-but directory . preserve)
630 (define (directory? x)
631 (and=> (stat x #f)
632 (compose (cut eq? 'directory <>) stat:type)))
633 (with-directory-excursion directory
634 (let* ((pred
635 (negate (cut member <> (append '("." "..") preserve))))
636 (items (scandir "." pred)))
637 (for-each (lambda (item)
638 (if (directory? item)
639 (delete-file-recursively item)
640 (delete-file item)))
641 items))))
642 (delete-all-but "." "common") 610 (delete-all-but "." "common")
643 ;; Module name has been changed upstream. 611 ;; Module name has been changed upstream.
644 (substitute* (find-files "." "\\.go$") 612 (substitute* (find-files "." "\\.go$")
@@ -728,24 +696,9 @@ those files in github.com/containers repos.")
728 (file-name (git-file-name name version)) 696 (file-name (git-file-name name version))
729 (sha256 697 (sha256
730 (base32 "17qjzgc3h89sa0y8qkviz5gry1kvkkm3j79yhn78c7gbmqcx5v0j")) 698 (base32 "17qjzgc3h89sa0y8qkviz5gry1kvkkm3j79yhn78c7gbmqcx5v0j"))
731 (modules '((guix build utils) 699 (modules '((guix build utils)))
732 (ice-9 ftw)
733 (srfi srfi-26)))
734 (snippet 700 (snippet
735 #~(begin 701 #~(begin
736 (define (delete-all-but directory . preserve)
737 (define (directory? x)
738 (and=> (stat x #f)
739 (compose (cut eq? 'directory <>) stat:type)))
740 (with-directory-excursion directory
741 (let* ((pred
742 (negate (cut member <> (append '("." "..") preserve))))
743 (items (scandir "." pred)))
744 (for-each (lambda (item)
745 (if (directory? item)
746 (delete-file-recursively item)
747 (delete-file item)))
748 items))))
749 (delete-all-but "." "image") 702 (delete-all-but "." "image")
750 ;; This is a workaround to provide a correct import-path. 703 ;; This is a workaround to provide a correct import-path.
751 (rename-file "image" "tmp") 704 (rename-file "image" "tmp")
@@ -863,25 +816,8 @@ also implements \"simple image signing\". It's a successor of
863 (file-name (git-file-name name version)) 816 (file-name (git-file-name name version))
864 (sha256 817 (sha256
865 (base32 "0ywj80wkpyq2yhizsdlfh0n2fxip75042rsk7jm4vyp98bb18rb6")) 818 (base32 "0ywj80wkpyq2yhizsdlfh0n2fxip75042rsk7jm4vyp98bb18rb6"))
866 (modules '((guix build utils) 819 (modules '((guix build utils)))
867 (ice-9 ftw) 820 (snippet #~(delete-all-but "." "storage"))))
868 (srfi srfi-26)))
869 (snippet
870 #~(begin
871 (define (delete-all-but directory . preserve)
872 (define (directory? x)
873 (and=> (stat x #f)
874 (compose (cut eq? 'directory <>) stat:type)))
875 (with-directory-excursion directory
876 (let* ((pred
877 (negate (cut member <> (append '("." "..") preserve))))
878 (items (scandir "." pred)))
879 (for-each (lambda (item)
880 (if (directory? item)
881 (delete-file-recursively item)
882 (delete-file item)))
883 items))))
884 (delete-all-but "." "storage")))))
885 (build-system go-build-system) 821 (build-system go-build-system)
886 (arguments 822 (arguments
887 (list 823 (list
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 3420665b062..4b8f7deb6e2 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1098,18 +1098,9 @@ auto-completion and syntax highlighting.")
1098 (sha256 1098 (sha256
1099 (base32 1099 (base32
1100 "0v9hc8yzp0f5pwl4kr1a8k7lwyf62g95klxb6avfrc2npjx79dbl")) 1100 "0v9hc8yzp0f5pwl4kr1a8k7lwyf62g95klxb6avfrc2npjx79dbl"))
1101 (modules '((guix build utils) 1101 (modules '((guix build utils)))
1102 (ice-9 ftw)
1103 (srfi srfi-26)))
1104 (snippet 1102 (snippet
1105 #~(begin 1103 #~(begin
1106 (define (delete-all-but directory . preserve)
1107 (with-directory-excursion directory
1108 (let* ((pred (negate (cut member <>
1109 (cons* "." ".." preserve))))
1110 (items (scandir "." pred)))
1111 (for-each (cut delete-file-recursively <>) items))))
1112
1113 ;; Delete bundled source libraries. 1104 ;; Delete bundled source libraries.
1114 (delete-all-but "extra" 1105 (delete-all-but "extra"
1115 ;; XXX: The build system doesn't currently 1106 ;; XXX: The build system doesn't currently
diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm
index df3eb572faf..246feb0a51e 100644
--- a/gnu/packages/debug.scm
+++ b/gnu/packages/debug.scm
@@ -1116,17 +1116,9 @@ to aid in debugging.")
1116 (commit (string-append "v" version)))) 1116 (commit (string-append "v" version))))
1117 (file-name (git-file-name name version)) 1117 (file-name (git-file-name name version))
1118 (sha256 (base32 "0ppx8r9isc772y0ahpgl8g5b3yxka7ffqzlcsa920aib5nj39lrg")) 1118 (sha256 (base32 "0ppx8r9isc772y0ahpgl8g5b3yxka7ffqzlcsa920aib5nj39lrg"))
1119 (modules '((guix build utils) 1119 (modules '((guix build utils)))
1120 (ice-9 ftw)
1121 (srfi srfi-26)))
1122 (snippet 1120 (snippet
1123 #~(begin 1121 #~(begin
1124 (define (delete-all-but directory . preserve)
1125 (with-directory-excursion directory
1126 (let* ((pred (negate (cut member <>
1127 (cons* "." ".." preserve))))
1128 (items (scandir "." pred)))
1129 (for-each (cut delete-file-recursively <>) items))))
1130 (substitute* "pyproject.toml" 1122 (substitute* "pyproject.toml"
1131 ;; Python is linked with GNU readline on all Guix targets. 1123 ;; Python is linked with GNU readline on all Guix targets.
1132 ((".*gnureadline.*") "") 1124 ((".*gnureadline.*") "")
diff --git a/gnu/packages/electronics.scm b/gnu/packages/electronics.scm
index 3c537518256..2405e7bc117 100644
--- a/gnu/packages/electronics.scm
+++ b/gnu/packages/electronics.scm
@@ -871,18 +871,8 @@ Simulator Trace} files.")
871 (base32 "1mb8mdrw8kp9mxj7ayv9gw59ghkbaj4jy1pbba8ia3s2nbzwqwp0")) 871 (base32 "1mb8mdrw8kp9mxj7ayv9gw59ghkbaj4jy1pbba8ia3s2nbzwqwp0"))
872 (patches 872 (patches
873 (search-patches "hal-disable-googletest.patch")) 873 (search-patches "hal-disable-googletest.patch"))
874 (snippet 874 (modules '((guix build utils)))
875 #~(begin 875 (snippet #~(delete-all-but "deps" "abc" "subprocess"))))
876 (use-modules (guix build utils)
877 (ice-9 ftw)
878 (srfi srfi-26))
879 (define (delete-all-but directory . preserve)
880 (with-directory-excursion directory
881 (let* ((pred (negate (cut member <>
882 (cons* "." ".." preserve))))
883 (items (scandir "." pred)))
884 (for-each (cut delete-file-recursively <>) items))))
885 (delete-all-but "deps" "abc" "subprocess")))))
886 (build-system qt-build-system) 876 (build-system qt-build-system)
887 (arguments 877 (arguments
888 (list 878 (list
@@ -1861,33 +1851,22 @@ exploration and optimization.")
1861 (commit version) 1851 (commit version)
1862 (recursive? #t))) 1852 (recursive? #t)))
1863 (file-name (git-file-name name version)) 1853 (file-name (git-file-name name version))
1864 (modules '((guix build utils) 1854 (sha256 (base32 "1g3k2g2p5yy7zk971bg7qh4k38p30aydp27c5bfb02gn7djknz7w"))
1865 (ice-9 ftw) 1855 (modules '((guix build utils)))
1866 (srfi srfi-26)))
1867 (snippet 1856 (snippet
1868 #~(begin 1857 #~(delete-all-but "libs"
1869 ;; XXX: 'delete-all-but' is copied from the turbovnc package. 1858 "delaunay-triangulation"
1870 (define (delete-all-but directory . preserve) 1859 "dxflib"
1871 (with-directory-excursion directory 1860 ;; "fontobene-qt"
1872 (let* ((pred (negate (cut member <> 1861 ;; "googletest"
1873 (cons* "." ".." preserve)))) 1862 ;; "hoedown"
1874 (items (scandir "." pred))) 1863 "librepcb"
1875 (for-each (cut delete-file-recursively <>) items)))) 1864 ;; "muparser"
1876 (delete-all-but "libs" 1865 "optional"
1877 "delaunay-triangulation" 1866 "parseagle"
1878 "dxflib" 1867 ;; "polyclipping"
1879 ;; "fontobene-qt" 1868 ;; "quazip"
1880 ;; "googletest" 1869 "type_safe"))))
1881 ;; "hoedown"
1882 "librepcb"
1883 ;; "muparser"
1884 "optional"
1885 "parseagle"
1886 ;; "polyclipping"
1887 ;; "quazip"
1888 "type_safe")))
1889 (sha256
1890 (base32 "1g3k2g2p5yy7zk971bg7qh4k38p30aydp27c5bfb02gn7djknz7w"))))
1891 (build-system qt-build-system) 1870 (build-system qt-build-system)
1892 (arguments 1871 (arguments
1893 (list 1872 (list
@@ -2446,27 +2425,16 @@ layout of a circuit corresponds to the desired netlists.")
2446 ;; no longer have their original upstream. 2425 ;; no longer have their original upstream.
2447 (recursive? #t))) 2426 (recursive? #t)))
2448 (file-name (git-file-name name version)) 2427 (file-name (git-file-name name version))
2449 (snippet 2428 (modules '((guix build utils)))
2450 #~(begin 2429 (snippet #~(delete-all-but "3rdparty"
2451 (use-modules (guix build utils) 2430 ;; The following sources have all been patched, so
2452 (ice-9 ftw) 2431 ;; cannot easily be unbundled.
2453 (srfi srfi-26)) 2432 "QtPropertyBrowser"
2454 ;; XXX: 'delete-all-but' is copied from the turbovnc package. 2433 "json11"
2455 (define (delete-all-but directory . preserve) 2434 "python-console"
2456 (with-directory-excursion directory 2435 "oourafft"
2457 (let* ((pred (negate (cut member <> 2436 "imgui"
2458 (cons* "." ".." preserve)))) 2437 "qtimgui"))
2459 (items (scandir "." pred)))
2460 (for-each (cut delete-file-recursively <>) items))))
2461 (delete-all-but "3rdparty"
2462 ;; The following sources have all been patched, so
2463 ;; cannot easily be unbundled.
2464 "QtPropertyBrowser"
2465 "json11"
2466 "python-console"
2467 "oourafft"
2468 "imgui"
2469 "qtimgui")))
2470 (sha256 2438 (sha256
2471 (base32 "1mb2dywv4gd52vzmml7rlyqdv4psw0l0gfy0mgwsknxblps3aha1")))) 2439 (base32 "1mb2dywv4gd52vzmml7rlyqdv4psw0l0gfy0mgwsknxblps3aha1"))))
2472 (outputs '("out" "bba")) 2440 (outputs '("out" "bba"))
@@ -4951,21 +4919,10 @@ code{yosys}-based formal hardware verification flows.")
4951 ;; Custom verion of the antlr4; see third_party/README. 4919 ;; Custom verion of the antlr4; see third_party/README.
4952 (recursive? #t))) 4920 (recursive? #t)))
4953 (file-name (git-file-name name version)) 4921 (file-name (git-file-name name version))
4954 (snippet 4922 (sha256 (base32 "0pj84bb3iyhrq09ggwfbhdhzb5c3d9ifga87pn0rjw9ym17ns1vh"))
4955 #~(begin 4923 (modules '((guix build utils)))
4956 (use-modules (guix build utils) 4924 (snippet #~(delete-all-but "third_party"
4957 (ice-9 ftw) 4925 "antlr4" "antlr4_bin" "tests" "UVM"))))
4958 (srfi srfi-26))
4959 (define (delete-all-but directory . preserve)
4960 (with-directory-excursion directory
4961 (let* ((pred (negate (cut member <>
4962 (cons* "." ".." preserve))))
4963 (items (scandir "." pred)))
4964 (for-each (cut delete-file-recursively <>) items))))
4965 (delete-all-but "third_party"
4966 "antlr4" "antlr4_bin" "tests" "UVM")))
4967 (sha256
4968 (base32 "0pj84bb3iyhrq09ggwfbhdhzb5c3d9ifga87pn0rjw9ym17ns1vh"))))
4969 (build-system cmake-build-system) 4926 (build-system cmake-build-system)
4970 (arguments 4927 (arguments
4971 (list 4928 (list
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index c52784e58dd..04b486f78f3 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -16844,18 +16844,9 @@ placed at the margin of the minibuffer for your completion candidates.")
16844 (url "https://github.com/Fuco1/smartparens") 16844 (url "https://github.com/Fuco1/smartparens")
16845 (commit commit))) 16845 (commit commit)))
16846 (file-name (git-file-name name version)) 16846 (file-name (git-file-name name version))
16847 (modules '((guix build utils) 16847 (modules '((guix build utils)))
16848 (ice-9 ftw)
16849 (srfi srfi-26)))
16850 (snippet 16848 (snippet
16851 '(begin 16849 '(begin
16852 ;; Taken from nextpnr package.
16853 (define (delete-all-but directory . preserve)
16854 (with-directory-excursion directory
16855 (let* ((pred
16856 (negate (cut member <> (append '("." "..") preserve))))
16857 (items (scandir "." pred)))
16858 (for-each delete-file items))))
16859 ;; Only activate basic tests. 16850 ;; Only activate basic tests.
16860 (delete-all-but "test" 16851 (delete-all-but "test"
16861 "test-helper.el" 16852 "test-helper.el"
diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index eed81854fca..ea62c24d1b7 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -557,13 +557,6 @@ It aims to support Nintendo DSi and 3DS as well.")
557 (srfi srfi-26))) 557 (srfi srfi-26)))
558 (snippet 558 (snippet
559 #~(begin 559 #~(begin
560 (define (delete-all-but directory . preserve)
561 (with-directory-excursion directory
562 (let* ((pred (negate (cut member <>
563 (cons* "." ".." preserve))))
564 (items (scandir "." pred)))
565 (for-each (cut delete-file-recursively <>) items))))
566
567 ;; Clean up the source from bundled libraries we don't need. 560 ;; Clean up the source from bundled libraries we don't need.
568 (delete-all-but "Externals" 561 (delete-all-but "Externals"
569 ;; XXX: The build system is currently hard-coded 562 ;; XXX: The build system is currently hard-coded
@@ -760,14 +753,6 @@ turbo speed, networked multiplayer, and graphical enhancements.")
760 (srfi srfi-26))) 753 (srfi srfi-26)))
761 (snippet 754 (snippet
762 #~(begin 755 #~(begin
763 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
764 (define (delete-all-but directory . preserve)
765 (with-directory-excursion directory
766 (let* ((pred (negate (cut member <>
767 (cons* "." ".." preserve))))
768 (items (scandir "." pred)))
769 (for-each (cut delete-file-recursively <>) items))))
770
771 ;; Clean up the source from bundled libraries we don't need. 756 ;; Clean up the source from bundled libraries we don't need.
772 (delete-all-but "Externals" 757 (delete-all-but "Externals"
773 ;; XXX: The build system is currently hard-coded 758 ;; XXX: The build system is currently hard-coded
@@ -1195,17 +1180,9 @@ The following systems are supported:
1195 (sha256 1180 (sha256
1196 (base32 1181 (base32
1197 "0dfsz4dsh49dc9xx9rjhfzfkg4h91i2ksgp2inlr9yhgldw9q8h3")) 1182 "0dfsz4dsh49dc9xx9rjhfzfkg4h91i2ksgp2inlr9yhgldw9q8h3"))
1198 (modules '((guix build utils) 1183 (modules '((guix build utils)))
1199 (ice-9 ftw)
1200 (srfi srfi-26)))
1201 (snippet 1184 (snippet
1202 #~(begin 1185 #~(begin
1203 (define (delete-all-but directory . preserve)
1204 (with-directory-excursion directory
1205 (let* ((pred (negate (cut member <> (cons* "." ".." preserve))))
1206 (items (scandir "." pred)))
1207 (for-each (cut delete-file-recursively <>) items))))
1208
1209 (delete-all-but "src/third-party" 1186 (delete-all-but "src/third-party"
1210 "blip_buf" 1187 "blip_buf"
1211 "inih"))))) 1188 "inih")))))
@@ -2433,42 +2410,9 @@ physical device and the RetroPad virtual controller.")
2433 (modules '((guix build utils))) 2410 (modules '((guix build utils)))
2434 (snippet 2411 (snippet
2435 '(begin 2412 '(begin
2436 (use-modules (guix build utils)
2437 (ice-9 ftw)
2438 (srfi srfi-1)
2439 (srfi srfi-26))
2440 (define (delete-all-but . preserve)
2441 ;; Walk the file tree and delete everything except the paths
2442 ;; listed in PRESERVE. Directories listed PRESERVE will cause
2443 ;; their whole contents to be preserved.
2444 (let ((preserve (map (compose (cut string-trim-right <> #\/)
2445 (cut string-append "./" <>))
2446 preserve)))
2447 (file-system-fold
2448 (lambda (path stat result) ;enter
2449 (or (any (lambda (x)
2450 (or (string-prefix? path x)
2451 (string-prefix? x path)))
2452 preserve)
2453 (begin
2454 (delete-file-recursively path)
2455 #f)))
2456 (lambda (path stat result) ;leaf (file)
2457 (unless (any (cut string-prefix? <> path) preserve)
2458 (delete-file path)))
2459 (const #t) ;down (directory)
2460 (const #t) ;up (directory)
2461 (lambda (path stat result) ;skip
2462 (when (file-exists? path)
2463 (error "could not enter unreadable directory" path)))
2464 (lambda (path stat errno result) ;error
2465 (error "error processing" path (strerror errno)))
2466 0
2467 ".")))
2468
2469 ;; This is an allow-list of the shaders explicitly licensed as 2413 ;; This is an allow-list of the shaders explicitly licensed as
2470 ;; free software. 2414 ;; free software.
2471 (delete-all-but 2415 (delete-all-but "."
2472 "anamorphic/shaders/anamorphic.slang" ;expat 2416 "anamorphic/shaders/anamorphic.slang" ;expat
2473 "anamorphic/anamorphic.slangp" 2417 "anamorphic/anamorphic.slangp"
2474 "annotated_passthru.slang" ;public license 2418 "annotated_passthru.slang" ;public license
@@ -3125,16 +3069,7 @@ GLSL (@file{.slang}) shaders for use with RetroArch.")
3125 (commit (string-append "v" version)))) 3069 (commit (string-append "v" version))))
3126 (snippet 3070 (snippet
3127 #~(begin 3071 #~(begin
3128 (use-modules (guix build utils) 3072 (use-modules (guix build utils))
3129 (ice-9 ftw)
3130 (srfi srfi-26))
3131 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
3132 (define (delete-all-but directory . preserve)
3133 (with-directory-excursion directory
3134 (let* ((pred (negate (cut member <>
3135 (cons* "." ".." preserve))))
3136 (items (scandir "." pred)))
3137 (for-each (cut delete-file-recursively <>) items))))
3138 ;; Remove as much bundled sources as possible, shaving off about 3073 ;; Remove as much bundled sources as possible, shaving off about
3139 ;; 65 MiB. 3074 ;; 65 MiB.
3140 (delete-all-but "deps" 3075 (delete-all-but "deps"
@@ -3975,24 +3910,14 @@ de-interlacing patches for use with PCSX2.")
3975 (file-name (git-file-name name version)) 3910 (file-name (git-file-name name version))
3976 (sha256 3911 (sha256
3977 (base32 "0nr53cjifqwnz3icxsj01yd3aw1vfsfxga4zz5zi8aqr175mvq27")) 3912 (base32 "0nr53cjifqwnz3icxsj01yd3aw1vfsfxga4zz5zi8aqr175mvq27"))
3978 (modules '((guix build utils) 3913 (modules '((guix build utils)))
3979 (ice-9 ftw)
3980 (srfi srfi-26)))
3981 (snippet 3914 (snippet
3982 #~(begin 3915 #~(begin
3983 (substitute* "cmake/Pcsx2Utils.cmake" 3916 (substitute* "cmake/Pcsx2Utils.cmake"
3984 (("(PCSX2_GIT_REV \")Unknown" _ prefix) 3917 (("(PCSX2_GIT_REV \")Unknown" _ prefix)
3985 (string-append prefix #$version "-guix"))) 3918 (string-append prefix #$version "-guix")))
3986 (delete-file "3rdparty/include/Packet32.h") ;"not open source" 3919 (delete-file "3rdparty/include/Packet32.h") ;"not open source"
3987 ;; XXX: 'delete-all-but' is copied from the turbovnc package. 3920 (delete-all-but "3rdparty"
3988 (define (delete-all-but directory . preserve)
3989 (with-directory-excursion directory
3990 (let* ((pred (negate (cut member <>
3991 (cons* "." ".." preserve))))
3992 (items (scandir "." pred)))
3993 (for-each (cut delete-file-recursively <>) items))))
3994 (delete-all-but
3995 "3rdparty"
3996 ;; asl2.0 and cc0 3921 ;; asl2.0 and cc0
3997 "glad" ;Is tailored. 3922 "glad" ;Is tailored.
3998 ;; bsd-3 3923 ;; bsd-3
diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm
index a3697e91f9e..bd3f56bc854 100644
--- a/gnu/packages/game-development.scm
+++ b/gnu/packages/game-development.scm
@@ -1194,17 +1194,9 @@ It is capable of creating games for SCUMM version 6 and partially version 7.")
1194 (sha256 1194 (sha256
1195 (base32 1195 (base32
1196 "12f1d45995qf5sazjmmfdydllcd6alhqs1s4xwv3jiq1fw66hcy9")) 1196 "12f1d45995qf5sazjmmfdydllcd6alhqs1s4xwv3jiq1fw66hcy9"))
1197 (modules '((guix build utils) 1197 (modules '((guix build utils)))
1198 (ice-9 ftw)
1199 (srfi srfi-26)))
1200 (snippet 1198 (snippet
1201 '(begin 1199 '(begin
1202 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
1203 (define (delete-all-but directory . preserve)
1204 (with-directory-excursion directory
1205 (let* ((pred (negate (cut member <> (cons* "." ".." preserve))))
1206 (items (scandir "." pred)))
1207 (for-each (cut delete-file-recursively <>) items))))
1208 (delete-all-but "extlibs/headers" 1200 (delete-all-but "extlibs/headers"
1209 "glad"))))) ;pre-generated headers 1201 "glad"))))) ;pre-generated headers
1210 (build-system cmake-build-system) 1202 (build-system cmake-build-system)
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 3ef15c632e9..950f17ff541 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -8148,20 +8148,9 @@ the GNU Shepherd.")
8148 (sha256 8148 (sha256
8149 (base32 8149 (base32
8150 "0ly43lcpafl0an3k4g4mvwrwvc78f0y91ckdi6qn13ky67rvk81h")) 8150 "0ly43lcpafl0an3k4g4mvwrwvc78f0y91ckdi6qn13ky67rvk81h"))
8151 (modules '((guix build utils) 8151 (modules '((guix build utils)))
8152 (ice-9 ftw)
8153 (srfi srfi-26)))
8154 (snippet 8152 (snippet
8155 #~(begin 8153 #~(delete-all-but "subprojects" "gobject-introspection-tests"))))
8156 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
8157 (define (delete-all-but directory . preserve)
8158 (with-directory-excursion directory
8159 (let* ((pred (negate (cut member <>
8160 (cons* "." ".." preserve))))
8161 (items (scandir "." pred)))
8162 (for-each (cut delete-file-recursively <>) items))))
8163 (delete-all-but "subprojects"
8164 "gobject-introspection-tests")))))
8165 (build-system meson-build-system) 8154 (build-system meson-build-system)
8166 (outputs '("out" "debug")) 8155 (outputs '("out" "debug"))
8167 (arguments 8156 (arguments
diff --git a/gnu/packages/golang-apps.scm b/gnu/packages/golang-apps.scm
index 80ad63d8535..cc0c06be3e0 100644
--- a/gnu/packages/golang-apps.scm
+++ b/gnu/packages/golang-apps.scm
@@ -193,17 +193,9 @@ definitions in Go programs.")
193 (file-name (git-file-name name version)) 193 (file-name (git-file-name name version))
194 (sha256 194 (sha256
195 (base32 "0c1rxbj3v3m0fqb8q96xlbawxm9scyx6vvr8pddkiwp7zkx4ajym")) 195 (base32 "0c1rxbj3v3m0fqb8q96xlbawxm9scyx6vvr8pddkiwp7zkx4ajym"))
196 (modules '((guix build utils) 196 (modules '((guix build utils)))
197 (ice-9 ftw)
198 (srfi srfi-26)))
199 (snippet 197 (snippet
200 #~(begin 198 #~(begin
201 (define (delete-all-but directory . preserve)
202 (with-directory-excursion directory
203 (let* ((pred (negate (cut member <>
204 (cons* "." ".." preserve))))
205 (items (scandir "." pred)))
206 (for-each (cut delete-file-recursively <>) items))))
207 (delete-all-but "cmd" "godoc") 199 (delete-all-but "cmd" "godoc")
208 (delete-all-but "." "cmd"))))) 200 (delete-all-but "." "cmd")))))
209 (build-system go-build-system) 201 (build-system go-build-system)
diff --git a/gnu/packages/golang-build.scm b/gnu/packages/golang-build.scm
index 70d99a41a77..d49aab3c8f5 100644
--- a/gnu/packages/golang-build.scm
+++ b/gnu/packages/golang-build.scm
@@ -1555,17 +1555,9 @@ Go programming language.")
1555 (file-name (git-file-name name version)) 1555 (file-name (git-file-name name version))
1556 (sha256 1556 (sha256
1557 (base32 "0sjvngpahkb5x573i855fjlb1fdmr6n269nmb5xxnbabjb27mnvg")) 1557 (base32 "0sjvngpahkb5x573i855fjlb1fdmr6n269nmb5xxnbabjb27mnvg"))
1558 (modules '((guix build utils) 1558 (modules '((guix build utils)))
1559 (ice-9 ftw)
1560 (srfi srfi-26)))
1561 (snippet 1559 (snippet
1562 #~(begin 1560 #~(begin
1563 (define (delete-all-but directory . preserve)
1564 (with-directory-excursion directory
1565 (let* ((pred (negate (cut member <>
1566 (cons* "." ".." preserve))))
1567 (items (scandir "." pred)))
1568 (for-each (cut delete-file-recursively <>) items))))
1569 (delete-all-but "go" "expect") 1561 (delete-all-but "go" "expect")
1570 (delete-all-but "." "go"))))) 1562 (delete-all-but "." "go")))))
1571 (build-system go-build-system) 1563 (build-system go-build-system)
@@ -1595,17 +1587,9 @@ Go source code (including go.mod and go.work files) as test expectations.")
1595 (file-name (git-file-name name version)) 1587 (file-name (git-file-name name version))
1596 (sha256 1588 (sha256
1597 (base32 "0sjvngpahkb5x573i855fjlb1fdmr6n269nmb5xxnbabjb27mnvg")) 1589 (base32 "0sjvngpahkb5x573i855fjlb1fdmr6n269nmb5xxnbabjb27mnvg"))
1598 (modules '((guix build utils) 1590 (modules '((guix build utils)))
1599 (ice-9 ftw)
1600 (srfi srfi-26)))
1601 (snippet 1591 (snippet
1602 #~(begin 1592 #~(begin
1603 (define (delete-all-but directory . preserve)
1604 (with-directory-excursion directory
1605 (let* ((pred (negate (cut member <>
1606 (cons* "." ".." preserve))))
1607 (items (scandir "." pred)))
1608 (for-each (cut delete-file-recursively <>) items))))
1609 (delete-all-but "go" "packages") 1593 (delete-all-but "go" "packages")
1610 (delete-all-but "go/packages" "packagestest") 1594 (delete-all-but "go/packages" "packagestest")
1611 (delete-all-but "." "go"))))) 1595 (delete-all-but "." "go")))))
@@ -1638,18 +1622,9 @@ tools on.")
1638 (file-name (git-file-name name version)) 1622 (file-name (git-file-name name version))
1639 (sha256 1623 (sha256
1640 (base32 "1blk22apy424j9v58lfy4pxnrgh93yqchqhxsnf78dmx4vx5yi9r")) 1624 (base32 "1blk22apy424j9v58lfy4pxnrgh93yqchqhxsnf78dmx4vx5yi9r"))
1641 (modules '((guix build utils) 1625 (modules '((guix build utils)))
1642 (ice-9 ftw)
1643 (srfi srfi-26)))
1644 (snippet 1626 (snippet
1645 #~(begin 1627 #~(begin (delete-all-but "." "godoc")))))
1646 (define (delete-all-but directory . preserve)
1647 (with-directory-excursion directory
1648 (let* ((pred (negate (cut member <>
1649 (cons* "." ".." preserve))))
1650 (items (scandir "." pred)))
1651 (for-each (cut delete-file-recursively <>) items))))
1652 (delete-all-but "." "godoc")))))
1653 (build-system go-build-system) 1628 (build-system go-build-system)
1654 (arguments 1629 (arguments
1655 (list 1630 (list
diff --git a/gnu/packages/golang-check.scm b/gnu/packages/golang-check.scm
index d05e0ee2c59..a0d5f712380 100644
--- a/gnu/packages/golang-check.scm
+++ b/gnu/packages/golang-check.scm
@@ -1288,17 +1288,9 @@ ci-info} in Go.")
1288 (file-name (git-file-name name version)) 1288 (file-name (git-file-name name version))
1289 (sha256 1289 (sha256
1290 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458")) 1290 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458"))
1291 (modules '((guix build utils) 1291 (modules '((guix build utils)))
1292 (ice-9 ftw)
1293 (srfi srfi-26)))
1294 (snippet 1292 (snippet
1295 #~(begin 1293 #~(begin
1296 (define (delete-all-but directory . preserve)
1297 (with-directory-excursion directory
1298 (let* ((pred (negate (cut member <>
1299 (cons* "." ".." preserve))))
1300 (items (scandir "." pred)))
1301 (for-each (cut delete-file-recursively <>) items))))
1302 (delete-all-but "jsonutils" "fixtures_test") 1294 (delete-all-but "jsonutils" "fixtures_test")
1303 (delete-all-but "." "jsonutils"))))) 1295 (delete-all-but "." "jsonutils")))))
1304 (build-system go-build-system) 1296 (build-system go-build-system)
diff --git a/gnu/packages/golang-web.scm b/gnu/packages/golang-web.scm
index a673448d5cf..fa5ca500474 100644
--- a/gnu/packages/golang-web.scm
+++ b/gnu/packages/golang-web.scm
@@ -504,16 +504,8 @@ Services.")
504 (file-name (git-file-name name version)) 504 (file-name (git-file-name name version))
505 (sha256 505 (sha256
506 (base32 "1c2i8jhc4rizmwz6716bwxwy04adjmm7k2cigki3m1f00rwblmki")) 506 (base32 "1c2i8jhc4rizmwz6716bwxwy04adjmm7k2cigki3m1f00rwblmki"))
507 (modules '((guix build utils) 507 (modules '((guix build utils)))
508 (ice-9 ftw)
509 (srfi srfi-26)))
510 (snippet #~(begin 508 (snippet #~(begin
511 (define (delete-all-but directory . preserve)
512 (with-directory-excursion directory
513 (let* ((pred (negate (cut member <>
514 (cons* "." ".." preserve))))
515 (items (scandir "." pred)))
516 (for-each (cut delete-file-recursively <>) items))))
517 (delete-file-recursively "auth/oauth2adapt") 509 (delete-file-recursively "auth/oauth2adapt")
518 (delete-all-but "." "auth"))))) 510 (delete-all-but "." "auth")))))
519 (build-system go-build-system) 511 (build-system go-build-system)
@@ -571,16 +563,8 @@ automatic token management.")
571 (file-name (git-file-name name version)) 563 (file-name (git-file-name name version))
572 (sha256 564 (sha256
573 (base32 "109szg097fn42qpsmrmd29iwsdh2yrjh9krq8mjm02fnm7l18lc4")) 565 (base32 "109szg097fn42qpsmrmd29iwsdh2yrjh9krq8mjm02fnm7l18lc4"))
574 (modules '((guix build utils) 566 (modules '((guix build utils)))
575 (ice-9 ftw)
576 (srfi srfi-26)))
577 (snippet #~(begin 567 (snippet #~(begin
578 (define (delete-all-but directory . preserve)
579 (with-directory-excursion directory
580 (let* ((pred (negate (cut member <>
581 (cons* "." ".." preserve))))
582 (items (scandir "." pred)))
583 (for-each (cut delete-file-recursively <>) items))))
584 (delete-all-but "auth" "oauth2adapt") 568 (delete-all-but "auth" "oauth2adapt")
585 (delete-all-but "." "auth"))))) 569 (delete-all-but "." "auth")))))
586 (build-system go-build-system) 570 (build-system go-build-system)
@@ -643,17 +627,8 @@ API service accounts for Go.")
643 (file-name (git-file-name name version)) 627 (file-name (git-file-name name version))
644 (sha256 628 (sha256
645 (base32 "0l3dc1i1qqj8mfvl7xcm8rgvsi49xaxlzlrx3p4vjhc23skx1688")) 629 (base32 "0l3dc1i1qqj8mfvl7xcm8rgvsi49xaxlzlrx3p4vjhc23skx1688"))
646 (modules '((guix build utils) 630 (modules '((guix build utils)))
647 (ice-9 ftw) 631 (snippet #~(delete-all-but "." "kms"))))
648 (srfi srfi-26)))
649 (snippet #~(begin
650 (define (delete-all-but directory . preserve)
651 (with-directory-excursion directory
652 (let* ((pred (negate (cut member <>
653 (cons* "." ".." preserve))))
654 (items (scandir "." pred)))
655 (for-each (cut delete-file-recursively <>) items))))
656 (delete-all-but "." "kms")))))
657 (build-system go-build-system) 632 (build-system go-build-system)
658 (arguments 633 (arguments
659 (list 634 (list
@@ -690,17 +665,8 @@ Service (KMS) API.")
690 (file-name (git-file-name name version)) 665 (file-name (git-file-name name version))
691 (sha256 666 (sha256
692 (base32 "1qrhsn90v1myvyd46pjvg02pzwqzny1v3f75jdby03bbdcd7al9m")) 667 (base32 "1qrhsn90v1myvyd46pjvg02pzwqzny1v3f75jdby03bbdcd7al9m"))
693 (modules '((guix build utils) 668 (modules '((guix build utils)))
694 (ice-9 ftw) 669 (snippet #~(delete-all-but "." "iam"))))
695 (srfi srfi-26)))
696 (snippet #~(begin
697 (define (delete-all-but directory . preserve)
698 (with-directory-excursion directory
699 (let* ((pred (negate (cut member <>
700 (cons* "." ".." preserve))))
701 (items (scandir "." pred)))
702 (for-each (cut delete-file-recursively <>) items))))
703 (delete-all-but "." "iam")))))
704 (build-system go-build-system) 670 (build-system go-build-system)
705 (arguments 671 (arguments
706 (list 672 (list
@@ -736,18 +702,8 @@ see: @url{https://cloud.google.com/iam, IAM specification} for more details.")
736 (file-name (git-file-name name version)) 702 (file-name (git-file-name name version))
737 (sha256 703 (sha256
738 (base32 "14khzbcymknsz4p40ibc8v1zsy33b33yn7fcvkfp4rkzw69wv356")) 704 (base32 "14khzbcymknsz4p40ibc8v1zsy33b33yn7fcvkfp4rkzw69wv356"))
739 (modules '((guix build utils) 705 (modules '((guix build utils)))
740 (ice-9 ftw) 706 (snippet #~(delete-all-but "." "logging"))))
741 (srfi srfi-26)))
742 (snippet
743 #~(begin
744 (define (delete-all-but directory . preserve)
745 (with-directory-excursion directory
746 (let* ((pred (negate (cut member <>
747 (cons* "." ".." preserve))))
748 (items (scandir "." pred)))
749 (for-each (cut delete-file-recursively <>) items))))
750 (delete-all-but "." "logging")))))
751 (build-system go-build-system) 707 (build-system go-build-system)
752 (arguments 708 (arguments
753 (list 709 (list
@@ -795,17 +751,8 @@ resources, see package cloud.google.com/go/logging/logadmin.")
795 (file-name (git-file-name name version)) 751 (file-name (git-file-name name version))
796 (sha256 752 (sha256
797 (base32 "1ykr9kj0sbb4w0h190lp9gcxppv18dp0d5ak2g93dky8hjyc2wfa")) 753 (base32 "1ykr9kj0sbb4w0h190lp9gcxppv18dp0d5ak2g93dky8hjyc2wfa"))
798 (modules '((guix build utils) 754 (modules '((guix build utils)))
799 (ice-9 ftw) 755 (snippet #~(delete-all-but "." "longrunning"))))
800 (srfi srfi-26)))
801 (snippet #~(begin
802 (define (delete-all-but directory . preserve)
803 (with-directory-excursion directory
804 (let* ((pred (negate (cut member <>
805 (cons* "." ".." preserve))))
806 (items (scandir "." pred)))
807 (for-each (cut delete-file-recursively <>) items))))
808 (delete-all-but "." "longrunning")))))
809 (build-system go-build-system) 756 (build-system go-build-system)
810 (arguments 757 (arguments
811 (list 758 (list
@@ -841,18 +788,8 @@ its service definition.")
841 (file-name (git-file-name name version)) 788 (file-name (git-file-name name version))
842 (sha256 789 (sha256
843 (base32 "13rdnpz6jz5242gfx6xv6q66rr7k2sbrf7s507wq09bxvd4g20p0")) 790 (base32 "13rdnpz6jz5242gfx6xv6q66rr7k2sbrf7s507wq09bxvd4g20p0"))
844 (modules '((guix build utils) 791 (modules '((guix build utils)))
845 (ice-9 ftw) 792 (snippet #~(delete-all-but "." "monitoring"))))
846 (srfi srfi-26)))
847 (snippet
848 #~(begin
849 (define (delete-all-but directory . preserve)
850 (with-directory-excursion directory
851 (let* ((pred (negate (cut member <>
852 (cons* "." ".." preserve))))
853 (items (scandir "." pred)))
854 (for-each (cut delete-file-recursively <>) items))))
855 (delete-all-but "." "monitoring")))))
856 (build-system go-build-system) 793 (build-system go-build-system)
857 (arguments 794 (arguments
858 (list 795 (list
@@ -887,18 +824,8 @@ its service definition.")
887 (file-name (git-file-name name version)) 824 (file-name (git-file-name name version))
888 (sha256 825 (sha256
889 (base32 "1pn77lf1d22sqpkia9zccdhdihlqc48lls6y9npc2wrp4lman2kv")) 826 (base32 "1pn77lf1d22sqpkia9zccdhdihlqc48lls6y9npc2wrp4lman2kv"))
890 (modules '((guix build utils) 827 (modules '((guix build utils)))
891 (ice-9 ftw) 828 (snippet #~(delete-all-but "." "profiler"))))
892 (srfi srfi-26)))
893 (snippet
894 #~(begin
895 (define (delete-all-but directory . preserve)
896 (with-directory-excursion directory
897 (let* ((pred (negate (cut member <>
898 (cons* "." ".." preserve))))
899 (items (scandir "." pred)))
900 (for-each (cut delete-file-recursively <>) items))))
901 (delete-all-but "." "profiler")))))
902 (build-system go-build-system) 829 (build-system go-build-system)
903 (arguments 830 (arguments
904 (list 831 (list
@@ -942,17 +869,8 @@ its service definition.")
942 (file-name (git-file-name name version)) 869 (file-name (git-file-name name version))
943 (sha256 870 (sha256
944 (base32 "1pn77lf1d22sqpkia9zccdhdihlqc48lls6y9npc2wrp4lman2kv")) 871 (base32 "1pn77lf1d22sqpkia9zccdhdihlqc48lls6y9npc2wrp4lman2kv"))
945 (modules '((guix build utils) 872 (modules '((guix build utils)))
946 (ice-9 ftw) 873 (snippet #~(delete-all-but "." "security"))))
947 (srfi srfi-26)))
948 (snippet #~(begin
949 (define (delete-all-but directory . preserve)
950 (with-directory-excursion directory
951 (let* ((pred (negate (cut member <>
952 (cons* "." ".." preserve))))
953 (items (scandir "." pred)))
954 (for-each (cut delete-file-recursively <>) items))))
955 (delete-all-but "." "security")))))
956 (build-system go-build-system) 874 (build-system go-build-system)
957 (arguments 875 (arguments
958 (list 876 (list
@@ -987,18 +905,8 @@ its service definition.")
987 (file-name (git-file-name name version)) 905 (file-name (git-file-name name version))
988 (sha256 906 (sha256
989 (base32 "05jgalbqb9n1whlpdkj40rvyk8lg39q5w4l463ycsj2301pmr90h")) 907 (base32 "05jgalbqb9n1whlpdkj40rvyk8lg39q5w4l463ycsj2301pmr90h"))
990 (modules '((guix build utils) 908 (modules '((guix build utils)))
991 (ice-9 ftw) 909 (snippet #~(delete-all-but "." "spanner"))))
992 (srfi srfi-26)))
993 (snippet
994 #~(begin
995 (define (delete-all-but directory . preserve)
996 (with-directory-excursion directory
997 (let* ((pred (negate (cut member <>
998 (cons* "." ".." preserve))))
999 (items (scandir "." pred)))
1000 (for-each (cut delete-file-recursively <>) items))))
1001 (delete-all-but "." "spanner")))))
1002 (build-system go-build-system) 910 (build-system go-build-system)
1003 (arguments 911 (arguments
1004 (list 912 (list
@@ -1059,17 +967,8 @@ introduction to Cloud Spanner and additional help on using this API.")
1059 (file-name (git-file-name name version)) 967 (file-name (git-file-name name version))
1060 (sha256 968 (sha256
1061 (base32 "0sjwrcjqja62mgv4bzl8z4jps9bf55l8zln5wy8qjvrs6ql117ny")) 969 (base32 "0sjwrcjqja62mgv4bzl8z4jps9bf55l8zln5wy8qjvrs6ql117ny"))
1062 (modules '((guix build utils) 970 (modules '((guix build utils)))
1063 (ice-9 ftw) 971 (snippet #~(delete-all-but "." "storage"))))
1064 (srfi srfi-26)))
1065 (snippet #~(begin
1066 (define (delete-all-but directory . preserve)
1067 (with-directory-excursion directory
1068 (let* ((pred (negate (cut member <>
1069 (cons* "." ".." preserve))))
1070 (items (scandir "." pred)))
1071 (for-each (cut delete-file-recursively <>) items))))
1072 (delete-all-but "." "storage")))))
1073 (build-system go-build-system) 972 (build-system go-build-system)
1074 (arguments 973 (arguments
1075 (list 974 (list
@@ -1124,18 +1023,8 @@ buckets.")
1124 (file-name (git-file-name name version)) 1023 (file-name (git-file-name name version))
1125 (sha256 1024 (sha256
1126 (base32 "14khzbcymknsz4p40ibc8v1zsy33b33yn7fcvkfp4rkzw69wv356")) 1025 (base32 "14khzbcymknsz4p40ibc8v1zsy33b33yn7fcvkfp4rkzw69wv356"))
1127 (modules '((guix build utils) 1026 (modules '((guix build utils)))
1128 (ice-9 ftw) 1027 (snippet #~(delete-all-but "." "trace"))))
1129 (srfi srfi-26)))
1130 (snippet
1131 #~(begin
1132 (define (delete-all-but directory . preserve)
1133 (with-directory-excursion directory
1134 (let* ((pred (negate (cut member <>
1135 (cons* "." ".." preserve))))
1136 (items (scandir "." pred)))
1137 (for-each (cut delete-file-recursively <>) items))))
1138 (delete-all-but "." "trace")))))
1139 (build-system go-build-system) 1028 (build-system go-build-system)
1140 (arguments 1029 (arguments
1141 (list 1030 (list
@@ -2809,21 +2698,8 @@ functions.")
2809 (file-name (git-file-name name version)) 2698 (file-name (git-file-name name version))
2810 (sha256 2699 (sha256
2811 (base32 "1j68835z0dgzxwf3m4gfir50wi6r30yx3g78y63x55sdg2imbhsk")) 2700 (base32 "1j68835z0dgzxwf3m4gfir50wi6r30yx3g78y63x55sdg2imbhsk"))
2812 (modules '((guix build utils) 2701 (modules '((guix build utils)))
2813 (ice-9 ftw) 2702 (snippet #~(delete-all-but "." "config"))))
2814 (srfi srfi-26)))
2815 (snippet
2816 #~(begin
2817 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
2818 ;; Consider implementing it as a reusable procedure in
2819 ;; guix/build/utils or guix/build-system/go.
2820 (define (delete-all-but directory . preserve)
2821 (with-directory-excursion directory
2822 (let* ((pred (negate (cut member <>
2823 (cons* "." ".." preserve))))
2824 (items (scandir "." pred)))
2825 (for-each (cut delete-file-recursively <>) items))))
2826 (delete-all-but "." "config")))))
2827 (build-system go-build-system) 2703 (build-system go-build-system)
2828 (arguments 2704 (arguments
2829 (list 2705 (list
@@ -2858,21 +2734,8 @@ utilities.")
2858 (file-name (git-file-name name version)) 2734 (file-name (git-file-name name version))
2859 (sha256 2735 (sha256
2860 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p")) 2736 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p"))
2861 (modules '((guix build utils) 2737 (modules '((guix build utils)))
2862 (ice-9 ftw) 2738 (snippet #~(delete-all-but "." "credentials"))))
2863 (srfi srfi-26)))
2864 (snippet
2865 #~(begin
2866 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
2867 ;; Consider implementing it as a reusable procedure in
2868 ;; guix/build/utils or guix/build-system/go.
2869 (define (delete-all-but directory . preserve)
2870 (with-directory-excursion directory
2871 (let* ((pred (negate (cut member <>
2872 (cons* "." ".." preserve))))
2873 (items (scandir "." pred)))
2874 (for-each (cut delete-file-recursively <>) items))))
2875 (delete-all-but "." "credentials")))))
2876 (build-system go-build-system) 2739 (build-system go-build-system)
2877 (arguments 2740 (arguments
2878 (list 2741 (list
@@ -2915,17 +2778,9 @@ credentials sources.")
2915 (file-name (git-file-name name version)) 2778 (file-name (git-file-name name version))
2916 (sha256 2779 (sha256
2917 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p")) 2780 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p"))
2918 (modules '((guix build utils) 2781 (modules '((guix build utils)))
2919 (ice-9 ftw)
2920 (srfi srfi-26)))
2921 (snippet 2782 (snippet
2922 #~(begin 2783 #~(begin
2923 (define (delete-all-but directory . preserve)
2924 (with-directory-excursion directory
2925 (let* ((pred (negate (cut member <>
2926 (cons* "." ".." preserve))))
2927 (items (scandir "." pred)))
2928 (for-each (cut delete-file-recursively <>) items))))
2929 (delete-all-but "." "feature") 2784 (delete-all-but "." "feature")
2930 (delete-all-but "feature" "ec2") 2785 (delete-all-but "feature" "ec2")
2931 (delete-all-but "feature/ec2" "imds") 2786 (delete-all-but "feature/ec2" "imds")
@@ -2991,19 +2846,8 @@ S3 concurrently. Helpful for when working with large objects.")
2991 (file-name (git-file-name name version)) 2846 (file-name (git-file-name name version))
2992 (sha256 2847 (sha256
2993 (base32 "068yzhxxxdymr1avb1l1pm9m0p7mcd0zlw5an66mcqldgl7hfivg")) 2848 (base32 "068yzhxxxdymr1avb1l1pm9m0p7mcd0zlw5an66mcqldgl7hfivg"))
2994 (modules '((guix build utils) 2849 (modules '((guix build utils)))
2995 (ice-9 ftw) 2850 (snippet #~(delete-all-but "." "internal"))))
2996 (srfi srfi-26)))
2997 (snippet
2998 #~(begin
2999 (define (delete-all-but directory . preserve)
3000 (with-directory-excursion directory
3001 (let* ((pred (negate (cut member <>
3002 (cons* "." ".." preserve))))
3003 (items (scandir "." pred)))
3004 (for-each (cut delete-file-recursively <>) items))))
3005 (delete-all-but "internal" "configsources")
3006 (delete-all-but "." "internal")))))
3007 (build-system go-build-system) 2851 (build-system go-build-system)
3008 (arguments 2852 (arguments
3009 (list 2853 (list
@@ -3038,17 +2882,9 @@ configuration sources in AWS.")
3038 (file-name (git-file-name name version)) 2882 (file-name (git-file-name name version))
3039 (sha256 2883 (sha256
3040 (base32 "068yzhxxxdymr1avb1l1pm9m0p7mcd0zlw5an66mcqldgl7hfivg")) 2884 (base32 "068yzhxxxdymr1avb1l1pm9m0p7mcd0zlw5an66mcqldgl7hfivg"))
3041 (modules '((guix build utils) 2885 (modules '((guix build utils)))
3042 (ice-9 ftw)
3043 (srfi srfi-26)))
3044 (snippet 2886 (snippet
3045 #~(begin 2887 #~(begin
3046 (define (delete-all-but directory . preserve)
3047 (with-directory-excursion directory
3048 (let* ((pred (negate (cut member <>
3049 (cons* "." ".." preserve))))
3050 (items (scandir "." pred)))
3051 (for-each (cut delete-file-recursively <>) items))))
3052 (delete-all-but "internal/endpoints" "v2") 2888 (delete-all-but "internal/endpoints" "v2")
3053 (delete-all-but "internal" "endpoints") 2889 (delete-all-but "internal" "endpoints")
3054 (delete-all-but "." "internal"))))) 2890 (delete-all-but "." "internal")))))
@@ -3081,17 +2917,9 @@ structured records.")
3081 (file-name (git-file-name name version)) 2917 (file-name (git-file-name name version))
3082 (sha256 2918 (sha256
3083 (base32 "133768fizkn8hp0xrf90bh64y14gxzj45zfa1711igwafijwlvnl")) 2919 (base32 "133768fizkn8hp0xrf90bh64y14gxzj45zfa1711igwafijwlvnl"))
3084 (modules '((guix build utils) 2920 (modules '((guix build utils)))
3085 (ice-9 ftw)
3086 (srfi srfi-26)))
3087 (snippet 2921 (snippet
3088 #~(begin 2922 #~(begin
3089 (define (delete-all-but directory . preserve)
3090 (with-directory-excursion directory
3091 (let* ((pred (negate (cut member <>
3092 (cons* "." ".." preserve))))
3093 (items (scandir "." pred)))
3094 (for-each (cut delete-file-recursively <>) items))))
3095 (delete-all-but "service" "cloudwatchlogs") 2923 (delete-all-but "service" "cloudwatchlogs")
3096 (delete-all-but "." "service"))))) 2924 (delete-all-but "." "service")))))
3097 (build-system go-build-system) 2925 (build-system go-build-system)
@@ -3125,17 +2953,9 @@ for Amazon CloudWatch Logs.")
3125 (file-name (git-file-name name version)) 2953 (file-name (git-file-name name version))
3126 (sha256 2954 (sha256
3127 (base32 "1syzl2cd6m9hdjnn15163afz1wh85gva10l4k8j8w5i1jhk5sf40")) 2955 (base32 "1syzl2cd6m9hdjnn15163afz1wh85gva10l4k8j8w5i1jhk5sf40"))
3128 (modules '((guix build utils) 2956 (modules '((guix build utils)))
3129 (ice-9 ftw)
3130 (srfi srfi-26)))
3131 (snippet 2957 (snippet
3132 #~(begin 2958 #~(begin
3133 (define (delete-all-but directory . preserve)
3134 (with-directory-excursion directory
3135 (let* ((pred (negate (cut member <>
3136 (cons* "." ".." preserve))))
3137 (items (scandir "." pred)))
3138 (for-each (cut delete-file-recursively <>) items))))
3139 (delete-all-but "service" "kms") 2959 (delete-all-but "service" "kms")
3140 (delete-all-but "." "service"))))) 2960 (delete-all-but "." "service")))))
3141 (build-system go-build-system) 2961 (build-system go-build-system)
@@ -3252,17 +3072,9 @@ parameter types for AWS Secrets Manager.")
3252 (file-name (git-file-name name version)) 3072 (file-name (git-file-name name version))
3253 (sha256 3073 (sha256
3254 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p")) 3074 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p"))
3255 (modules '((guix build utils) 3075 (modules '((guix build utils)))
3256 (ice-9 ftw)
3257 (srfi srfi-26)))
3258 (snippet 3076 (snippet
3259 #~(begin 3077 #~(begin
3260 (define (delete-all-but directory . preserve)
3261 (with-directory-excursion directory
3262 (let* ((pred (negate (cut member <>
3263 (cons* "." ".." preserve))))
3264 (items (scandir "." pred)))
3265 (for-each (cut delete-file-recursively <>) items))))
3266 (delete-all-but "service" "sns") 3078 (delete-all-but "service" "sns")
3267 (delete-all-but "." "service"))))) 3079 (delete-all-but "." "service")))))
3268 (build-system go-build-system) 3080 (build-system go-build-system)
@@ -3296,20 +3108,9 @@ Amazon Simple Notification Service. ")
3296 (file-name (git-file-name name version)) 3108 (file-name (git-file-name name version))
3297 (sha256 3109 (sha256
3298 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p")) 3110 (base32 "04cv6g96hhmjl6snql6a909grq4yxyjk95a3dzk6mpihvg79q47p"))
3299 (modules '((guix build utils) 3111 (modules '((guix build utils)))
3300 (ice-9 ftw)
3301 (srfi srfi-26)))
3302 (snippet 3112 (snippet
3303 #~(begin 3113 #~(begin
3304 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
3305 ;; Consider implementing it as a reusable procedure in
3306 ;; guix/build/utils or guix/build-system/go.
3307 (define (delete-all-but directory . preserve)
3308 (with-directory-excursion directory
3309 (let* ((pred (negate (cut member <>
3310 (cons* "." ".." preserve))))
3311 (items (scandir "." pred)))
3312 (for-each (cut delete-file-recursively <>) items))))
3313 (delete-all-but "service" "sqs") 3114 (delete-all-but "service" "sqs")
3314 (delete-all-but "." "service"))))) 3115 (delete-all-but "." "service")))))
3315 (build-system go-build-system) 3116 (build-system go-build-system)
@@ -3342,17 +3143,9 @@ Amazon Simple Queue Service.")
3342 (file-name (git-file-name name version)) 3143 (file-name (git-file-name name version))
3343 (sha256 3144 (sha256
3344 (base32 "055i6c41zppxhf5kgxky7a8nc1wzsaxd6vbdyv0wqqbg8zbw5fjb")) 3145 (base32 "055i6c41zppxhf5kgxky7a8nc1wzsaxd6vbdyv0wqqbg8zbw5fjb"))
3345 (modules '((guix build utils) 3146 (modules '((guix build utils)))
3346 (ice-9 ftw)
3347 (srfi srfi-26)))
3348 (snippet 3147 (snippet
3349 #~(begin 3148 #~(begin
3350 (define (delete-all-but directory . preserve)
3351 (with-directory-excursion directory
3352 (let* ((pred (negate (cut member <>
3353 (cons* "." ".." preserve))))
3354 (items (scandir "." pred)))
3355 (for-each (cut delete-file-recursively <>) items))))
3356 (delete-all-but "service" "ssm") 3149 (delete-all-but "service" "ssm")
3357 (delete-all-but "." "service"))))) 3150 (delete-all-but "." "service")))))
3358 (build-system go-build-system) 3151 (build-system go-build-system)
@@ -3562,17 +3355,9 @@ signing.")
3562 (file-name (git-file-name name version)) 3355 (file-name (git-file-name name version))
3563 (sha256 3356 (sha256
3564 (base32 "15f2j863rb9cp4927sn48gsccnn6cm6cn8zjc8mycas4fw07lswr")) 3357 (base32 "15f2j863rb9cp4927sn48gsccnn6cm6cn8zjc8mycas4fw07lswr"))
3565 (modules '((guix build utils) 3358 (modules '((guix build utils)))
3566 (ice-9 ftw)
3567 (srfi srfi-26)))
3568 (snippet 3359 (snippet
3569 #~(begin 3360 #~(begin
3570 (define (delete-all-but directory . preserve)
3571 (with-directory-excursion directory
3572 (let* ((pred (negate (cut member <>
3573 (cons* "." ".." preserve))))
3574 (items (scandir "." pred)))
3575 (for-each (cut delete-file-recursively <>) items))))
3576 (delete-all-but "metrics" "smithyotelmetrics") 3361 (delete-all-but "metrics" "smithyotelmetrics")
3577 (delete-all-but "." "metrics"))))) 3362 (delete-all-but "." "metrics")))))
3578 (build-system go-build-system) 3363 (build-system go-build-system)
@@ -3729,16 +3514,8 @@ headers before the request is sent over the wire.")
3729 (file-name (git-file-name name version)) 3514 (file-name (git-file-name name version))
3730 (sha256 3515 (sha256
3731 (base32 "1qbcm8mqg2qvikv129s832qqvpydipv71825s4dkyjmzar5g04vf")) 3516 (base32 "1qbcm8mqg2qvikv129s832qqvpydipv71825s4dkyjmzar5g04vf"))
3732 (modules '((guix build utils) 3517 (modules '((guix build utils)))
3733 (ice-9 ftw)
3734 (srfi srfi-26)))
3735 (snippet #~(begin 3518 (snippet #~(begin
3736 (define (delete-all-but directory . preserve)
3737 (with-directory-excursion directory
3738 (let* ((pred (negate (cut member <>
3739 (cons* "." ".." preserve))))
3740 (items (scandir "." pred)))
3741 (for-each (cut delete-file-recursively <>) items))))
3742 (delete-all-but "sdk" "azcore") 3519 (delete-all-but "sdk" "azcore")
3743 (delete-all-but "." "sdk"))))) 3520 (delete-all-but "." "sdk")))))
3744 (build-system go-build-system) 3521 (build-system go-build-system)
@@ -3772,16 +3549,8 @@ Azure SDK clients.")
3772 (file-name (git-file-name name version)) 3549 (file-name (git-file-name name version))
3773 (sha256 3550 (sha256
3774 (base32 "18s9h2fcbcw39idfyjglm7vyyp04bgl0x0wj4vcd8q6a46b8rbh6")) 3551 (base32 "18s9h2fcbcw39idfyjglm7vyyp04bgl0x0wj4vcd8q6a46b8rbh6"))
3775 (modules '((guix build utils) 3552 (modules '((guix build utils)))
3776 (ice-9 ftw)
3777 (srfi srfi-26)))
3778 (snippet #~(begin 3553 (snippet #~(begin
3779 (define (delete-all-but directory . preserve)
3780 (with-directory-excursion directory
3781 (let* ((pred (negate (cut member <>
3782 (cons* "." ".." preserve))))
3783 (items (scandir "." pred)))
3784 (for-each (cut delete-file-recursively <>) items))))
3785 (delete-all-but "sdk" "azidentity") 3554 (delete-all-but "sdk" "azidentity")
3786 (delete-all-but "." "sdk"))))) 3555 (delete-all-but "." "sdk")))))
3787 (build-system go-build-system) 3556 (build-system go-build-system)
@@ -3822,16 +3591,8 @@ clients supporting token authentication.")
3822 (file-name (git-file-name name version)) 3591 (file-name (git-file-name name version))
3823 (sha256 3592 (sha256
3824 (base32 "0q0cbmh4vn2x1bi7bax2q6wpqndcyw7649w8lzl384k3rbn1q8yn")) 3593 (base32 "0q0cbmh4vn2x1bi7bax2q6wpqndcyw7649w8lzl384k3rbn1q8yn"))
3825 (modules '((guix build utils) 3594 (modules '((guix build utils)))
3826 (ice-9 ftw)
3827 (srfi srfi-26)))
3828 (snippet #~(begin 3595 (snippet #~(begin
3829 (define (delete-all-but directory . preserve)
3830 (with-directory-excursion directory
3831 (let* ((pred (negate (cut member <>
3832 (cons* "." ".." preserve))))
3833 (items (scandir "." pred)))
3834 (for-each (cut delete-file-recursively <>) items))))
3835 (delete-all-but "sdk" "internal") 3596 (delete-all-but "sdk" "internal")
3836 (delete-all-but "." "sdk"))))) 3597 (delete-all-but "." "sdk")))))
3837 (build-system go-build-system) 3598 (build-system go-build-system)
@@ -3863,16 +3624,8 @@ clients supporting token authentication.")
3863 (file-name (git-file-name name version)) 3624 (file-name (git-file-name name version))
3864 (sha256 3625 (sha256
3865 (base32 "0jxpzd6sg6fp2mim3sr7gg9y0lvlngf23mmij388ywz4zfvpcqhq")) 3626 (base32 "0jxpzd6sg6fp2mim3sr7gg9y0lvlngf23mmij388ywz4zfvpcqhq"))
3866 (modules '((guix build utils) 3627 (modules '((guix build utils)))
3867 (ice-9 ftw)
3868 (srfi srfi-26)))
3869 (snippet #~(begin 3628 (snippet #~(begin
3870 (define (delete-all-but directory . preserve)
3871 (with-directory-excursion directory
3872 (let* ((pred (negate (cut member <>
3873 (cons* "." ".." preserve))))
3874 (items (scandir "." pred)))
3875 (for-each delete-file-recursively items))))
3876 (delete-all-but "sdk/security/keyvault" "azkeys") 3629 (delete-all-but "sdk/security/keyvault" "azkeys")
3877 (delete-all-but "sdk/security" "keyvault") 3630 (delete-all-but "sdk/security" "keyvault")
3878 (delete-all-but "sdk" "security") 3631 (delete-all-but "sdk" "security")
@@ -3913,16 +3666,8 @@ keys used to encrypt your data.")
3913 (file-name (git-file-name name version)) 3666 (file-name (git-file-name name version))
3914 (sha256 3667 (sha256
3915 (base32 "16xb2gyl48xcc1xc58l8c8qhraxsmar7655348ggi4r2jzyc6sik")) 3668 (base32 "16xb2gyl48xcc1xc58l8c8qhraxsmar7655348ggi4r2jzyc6sik"))
3916 (modules '((guix build utils) 3669 (modules '((guix build utils)))
3917 (ice-9 ftw)
3918 (srfi srfi-26)))
3919 (snippet #~(begin 3670 (snippet #~(begin
3920 (define (delete-all-but directory . preserve)
3921 (with-directory-excursion directory
3922 (let* ((pred (negate (cut member <>
3923 (cons* "." ".." preserve))))
3924 (items (scandir "." pred)))
3925 (for-each (cut delete-file-recursively <>) items))))
3926 (delete-all-but "sdk/security/keyvault" "internal") 3671 (delete-all-but "sdk/security/keyvault" "internal")
3927 (delete-all-but "sdk/security" "keyvault") 3672 (delete-all-but "sdk/security" "keyvault")
3928 (delete-all-but "sdk" "security") 3673 (delete-all-but "sdk" "security")
@@ -3958,16 +3703,8 @@ challenge authentication policy.")
3958 (file-name (git-file-name name version)) 3703 (file-name (git-file-name name version))
3959 (sha256 3704 (sha256
3960 (base32 "08a8kx4n31pa4krrxs1hrcwygryh86nz98fyr9hvw67202zr3adw")) 3705 (base32 "08a8kx4n31pa4krrxs1hrcwygryh86nz98fyr9hvw67202zr3adw"))
3961 (modules '((guix build utils) 3706 (modules '((guix build utils)))
3962 (ice-9 ftw)
3963 (srfi srfi-26)))
3964 (snippet #~(begin 3707 (snippet #~(begin
3965 (define (delete-all-but directory . preserve)
3966 (with-directory-excursion directory
3967 (let* ((pred (negate (cut member <>
3968 (cons* "." ".." preserve))))
3969 (items (scandir "." pred)))
3970 (for-each (cut delete-file-recursively <>) items))))
3971 (delete-all-but "sdk/storage" "azblob") 3708 (delete-all-but "sdk/storage" "azblob")
3972 (delete-all-but "sdk" "storage") 3709 (delete-all-but "sdk" "storage")
3973 (delete-all-but "." "sdk"))))) 3710 (delete-all-but "." "sdk")))))
@@ -4008,16 +3745,8 @@ to Azure Blob Storage}.")
4008 (file-name (git-file-name name version)) 3745 (file-name (git-file-name name version))
4009 (sha256 3746 (sha256
4010 (base32 "08a8kx4n31pa4krrxs1hrcwygryh86nz98fyr9hvw67202zr3adw")) 3747 (base32 "08a8kx4n31pa4krrxs1hrcwygryh86nz98fyr9hvw67202zr3adw"))
4011 (modules '((guix build utils) 3748 (modules '((guix build utils)))
4012 (ice-9 ftw)
4013 (srfi srfi-26)))
4014 (snippet #~(begin 3749 (snippet #~(begin
4015 (define (delete-all-but directory . preserve)
4016 (with-directory-excursion directory
4017 (let* ((pred (negate (cut member <>
4018 (cons* "." ".." preserve))))
4019 (items (scandir "." pred)))
4020 (for-each (cut delete-file-recursively <>) items))))
4021 (delete-all-but "sdk/storage" "azfile") 3750 (delete-all-but "sdk/storage" "azfile")
4022 (delete-all-but "sdk" "storage") 3751 (delete-all-but "sdk" "storage")
4023 (delete-all-but "." "sdk"))))) 3752 (delete-all-but "." "sdk")))))
@@ -5572,18 +5301,8 @@ it mimics the functionality and signatures of the standard `os` package.")
5572 (file-name (git-file-name name version)) 5301 (file-name (git-file-name name version))
5573 (sha256 5302 (sha256
5574 (base32 "0pmcgi5jdcf0cx6z6qlppzqqwf6fhglfxd4sdr00wgbhvhfzchm3")) 5303 (base32 "0pmcgi5jdcf0cx6z6qlppzqqwf6fhglfxd4sdr00wgbhvhfzchm3"))
5575 (modules '((guix build utils) 5304 (modules '((guix build utils)))
5576 (ice-9 ftw) 5305 (snippet #~(delete-all-but "." "api"))))
5577 (srfi srfi-26)))
5578 (snippet
5579 #~(begin
5580 (define (delete-all-but directory . preserve)
5581 (with-directory-excursion directory
5582 (let* ((pred (negate (cut member <>
5583 (cons* "." ".." preserve))))
5584 (items (scandir "." pred)))
5585 (for-each (cut delete-file-recursively <>) items))))
5586 (delete-all-but "." "api")))))
5587 (build-system go-build-system) 5306 (build-system go-build-system)
5588 (arguments 5307 (arguments
5589 (list 5308 (list
@@ -7186,18 +6905,8 @@ implements the discovery service APIs defined in
7186 (file-name (git-file-name name version)) 6905 (file-name (git-file-name name version))
7187 (sha256 6906 (sha256
7188 (base32 "0ysssv13sykny7x8ajqlm0wyz7r0wplam94gnrjz4xw1jxvqvwpv")) 6907 (base32 "0ysssv13sykny7x8ajqlm0wyz7r0wplam94gnrjz4xw1jxvqvwpv"))
7189 (modules '((guix build utils) 6908 (modules '((guix build utils)))
7190 (ice-9 ftw) 6909 (snippet #~(delete-all-but "." "envoy"))))
7191 (srfi srfi-26)))
7192 (snippet
7193 #~(begin
7194 (define (delete-all-but directory . preserve)
7195 (with-directory-excursion directory
7196 (let* ((pred (negate (cut member <>
7197 (cons* "." ".." preserve))))
7198 (items (scandir "." pred)))
7199 (for-each (cut delete-file-recursively <>) items))))
7200 (delete-all-but "." "envoy")))))
7201 (build-system go-build-system) 6910 (build-system go-build-system)
7202 (arguments 6911 (arguments
7203 (list 6912 (list
@@ -8551,18 +8260,8 @@ the go-openapi and go-swagger projects.")
8551 (file-name (git-file-name name version)) 8260 (file-name (git-file-name name version))
8552 (sha256 8261 (sha256
8553 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458")) 8262 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458"))
8554 (modules '((guix build utils) 8263 (modules '((guix build utils)))
8555 (ice-9 ftw) 8264 (snippet #~(delete-all-but "." "loading"))))
8556 (srfi srfi-26)))
8557 (snippet
8558 #~(begin
8559 (define (delete-all-but directory . preserve)
8560 (with-directory-excursion directory
8561 (let* ((pred (negate (cut member <>
8562 (cons* "." ".." preserve))))
8563 (items (scandir "." pred)))
8564 (for-each (cut delete-file-recursively <>) items))))
8565 (delete-all-but "." "loading")))))
8566 (build-system go-build-system) 8265 (build-system go-build-system)
8567 (arguments 8266 (arguments
8568 (list 8267 (list
@@ -10022,17 +9721,9 @@ testing of the detection functions in real GCP environments.")
10022 (file-name (git-file-name name version)) 9721 (file-name (git-file-name name version))
10023 (sha256 9722 (sha256
10024 (base32 "0a2641mgbc2fv8ramifawpxv9rx99wqknv0xqin3wfapsn2vn5i9")) 9723 (base32 "0a2641mgbc2fv8ramifawpxv9rx99wqknv0xqin3wfapsn2vn5i9"))
10025 (modules '((guix build utils) 9724 (modules '((guix build utils)))
10026 (ice-9 ftw)
10027 (srfi srfi-26)))
10028 (snippet 9725 (snippet
10029 #~(begin 9726 #~(begin
10030 (define (delete-all-but directory . preserve)
10031 (with-directory-excursion directory
10032 (let* ((pred (negate (cut member <>
10033 (cons* "." ".." preserve))))
10034 (items (scandir "." pred)))
10035 (for-each (cut delete-file-recursively <>) items))))
10036 (delete-all-but "exporter" "metric") 9727 (delete-all-but "exporter" "metric")
10037 (delete-all-but "." "exporter"))))) 9728 (delete-all-but "." "exporter")))))
10038 (build-system go-build-system) 9729 (build-system go-build-system)
@@ -10079,17 +9770,9 @@ send collected metrics to Google Cloud.")
10079 (file-name (git-file-name name version)) 9770 (file-name (git-file-name name version))
10080 (sha256 9771 (sha256
10081 (base32 "0nizaaydcvvi718g5v4pgx8in6d546mmkrf7h3sxhz2yyyygvms3")) 9772 (base32 "0nizaaydcvvi718g5v4pgx8in6d546mmkrf7h3sxhz2yyyygvms3"))
10082 (modules '((guix build utils) 9773 (modules '((guix build utils)))
10083 (ice-9 ftw)
10084 (srfi srfi-26)))
10085 (snippet 9774 (snippet
10086 #~(begin 9775 #~(begin
10087 (define (delete-all-but directory . preserve)
10088 (with-directory-excursion directory
10089 (let* ((pred (negate (cut member <>
10090 (cons* "." ".." preserve))))
10091 (items (scandir "." pred)))
10092 (for-each (cut delete-file-recursively <>) items))))
10093 (delete-all-but "exporter" "trace") 9776 (delete-all-but "exporter" "trace")
10094 (delete-all-but "." "exporter"))))) 9777 (delete-all-but "." "exporter")))))
10095 (build-system go-build-system) 9778 (build-system go-build-system)
@@ -10135,17 +9818,9 @@ collected traces and spans to Google Cloud.")
10135 (file-name (git-file-name name version)) 9818 (file-name (git-file-name name version))
10136 (sha256 9819 (sha256
10137 (base32 "0nizaaydcvvi718g5v4pgx8in6d546mmkrf7h3sxhz2yyyygvms3")) 9820 (base32 "0nizaaydcvvi718g5v4pgx8in6d546mmkrf7h3sxhz2yyyygvms3"))
10138 (modules '((guix build utils) 9821 (modules '((guix build utils)))
10139 (ice-9 ftw)
10140 (srfi srfi-26)))
10141 (snippet 9822 (snippet
10142 #~(begin 9823 #~(begin
10143 (define (delete-all-but directory . preserve)
10144 (with-directory-excursion directory
10145 (let* ((pred (negate (cut member <>
10146 (cons* "." ".." preserve))))
10147 (items (scandir "." pred)))
10148 (for-each (cut delete-file-recursively <>) items))))
10149 (delete-all-but "internal" "cloudmock") 9824 (delete-all-but "internal" "cloudmock")
10150 (delete-all-but "." "internal"))))) 9825 (delete-all-but "." "internal")))))
10151 (build-system go-build-system) 9826 (build-system go-build-system)
@@ -10184,17 +9859,9 @@ collected traces and spans to Google Cloud.")
10184 (file-name (git-file-name name version)) 9859 (file-name (git-file-name name version))
10185 (sha256 9860 (sha256
10186 (base32 "0a2641mgbc2fv8ramifawpxv9rx99wqknv0xqin3wfapsn2vn5i9")) 9861 (base32 "0a2641mgbc2fv8ramifawpxv9rx99wqknv0xqin3wfapsn2vn5i9"))
10187 (modules '((guix build utils) 9862 (modules '((guix build utils)))
10188 (ice-9 ftw)
10189 (srfi srfi-26)))
10190 (snippet 9863 (snippet
10191 #~(begin 9864 #~(begin
10192 (define (delete-all-but directory . preserve)
10193 (with-directory-excursion directory
10194 (let* ((pred (negate (cut member <>
10195 (cons* "." ".." preserve))))
10196 (items (scandir "." pred)))
10197 (for-each (cut delete-file-recursively <>) items))))
10198 (delete-all-but "internal" "resourcemapping") 9865 (delete-all-but "internal" "resourcemapping")
10199 (delete-all-but "." "internal"))))) 9866 (delete-all-but "." "internal")))))
10200 (build-system go-build-system) 9867 (build-system go-build-system)
@@ -10822,17 +10489,9 @@ build multiple microservices easily.")
10822 (file-name (git-file-name name version)) 10489 (file-name (git-file-name name version))
10823 (sha256 10490 (sha256
10824 (base32 "0fr8z4dr9n1x6zgs2n7m2wd1j2wnnmig0xq099xcg5lvcxiqjv73")) 10491 (base32 "0fr8z4dr9n1x6zgs2n7m2wd1j2wnnmig0xq099xcg5lvcxiqjv73"))
10825 (modules '((guix build utils) 10492 (modules '((guix build utils)))
10826 (ice-9 ftw)
10827 (srfi srfi-26)))
10828 (snippet 10493 (snippet
10829 #~(begin 10494 #~(begin
10830 (define (delete-all-but directory . preserve)
10831 (with-directory-excursion directory
10832 (let* ((pred (negate (cut member <>
10833 (cons* "." ".." preserve))))
10834 (items (scandir "." pred)))
10835 (for-each (cut delete-file-recursively <>) items))))
10836 (delete-all-but "providers" "prometheus") 10495 (delete-all-but "providers" "prometheus")
10837 (delete-all-but "." "providers"))))) 10496 (delete-all-but "." "providers")))))
10838 (build-system go-build-system) 10497 (build-system go-build-system)
@@ -11033,17 +10692,8 @@ It is part of HashiCorp's Secure division products stdlib.")
11033 (file-name (git-file-name name version)) 10692 (file-name (git-file-name name version))
11034 (sha256 10693 (sha256
11035 (base32 "08wp7cx0br7wz0rwz92v0c6jgbv735l04438k74wgqrghsxgl31m")) 10694 (base32 "08wp7cx0br7wz0rwz92v0c6jgbv735l04438k74wgqrghsxgl31m"))
11036 (modules '((guix build utils) 10695 (modules '((guix build utils)))
11037 (ice-9 ftw) 10696 (snippet #~(delete-all-but "." "parseutil"))))
11038 (srfi srfi-26)))
11039 (snippet #~(begin
11040 (define (delete-all-but directory . preserve)
11041 (with-directory-excursion directory
11042 (let* ((pred (negate (cut member <>
11043 (cons* "." ".." preserve))))
11044 (items (scandir "." pred)))
11045 (for-each (cut delete-file-recursively <>) items))))
11046 (delete-all-but "." "parseutil")))))
11047 (build-system go-build-system) 10697 (build-system go-build-system)
11048 (arguments 10698 (arguments
11049 (list 10699 (list
@@ -15190,18 +14840,9 @@ control the daemon.")
15190 (file-name (git-file-name name version)) 14840 (file-name (git-file-name name version))
15191 (sha256 14841 (sha256
15192 (base32 "175i8w410z4532krammdard8gn13q4mr6bfadf81gqyd3ab60ksy")) 14842 (base32 "175i8w410z4532krammdard8gn13q4mr6bfadf81gqyd3ab60ksy"))
15193 (modules '((guix build utils) 14843 (modules '((guix build utils)))
15194 (ice-9 ftw)
15195 (srfi srfi-26)))
15196 (snippet 14844 (snippet
15197 #~(begin 14845 #~(begin (delete-all-but "." "client")))))
15198 (define (delete-all-but directory . preserve)
15199 (with-directory-excursion directory
15200 (let* ((pred (negate (cut member <>
15201 (cons* "." ".." preserve))))
15202 (items (scandir "." pred)))
15203 (for-each (cut delete-file-recursively <>) items))))
15204 (delete-all-but "." "client")))))
15205 (build-system go-build-system) 14846 (build-system go-build-system)
15206 (arguments 14847 (arguments
15207 (list 14848 (list
@@ -15989,18 +15630,8 @@ client or server.")
15989 (file-name (git-file-name name version)) 15630 (file-name (git-file-name name version))
15990 (sha256 15631 (sha256
15991 (base32 "1igrpi9yyjpzqyzyvgc6kl5l043x1hmkki26bnny30cmxahmjnrv")) 15632 (base32 "1igrpi9yyjpzqyzyvgc6kl5l043x1hmkki26bnny30cmxahmjnrv"))
15992 (modules '((guix build utils) 15633 (modules '((guix build utils)))
15993 (ice-9 ftw) 15634 (snippet #~(delete-all-but "." "test"))))
15994 (srfi srfi-26)))
15995 (snippet
15996 #~(begin
15997 (define (delete-all-but directory . preserve)
15998 (with-directory-excursion directory
15999 (let* ((pred (negate (cut member <>
16000 (cons* "." ".." preserve))))
16001 (items (scandir "." pred)))
16002 (for-each (cut delete-file-recursively <>) items))))
16003 (delete-all-but "." "test")))))
16004 (build-system go-build-system) 15635 (build-system go-build-system)
16005 (arguments 15636 (arguments
16006 (list 15637 (list
@@ -19113,17 +18744,9 @@ verification of signatures and attestations produced by Sigstore tools.")
19113 (file-name (git-file-name name version)) 18744 (file-name (git-file-name name version))
19114 (sha256 18745 (sha256
19115 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk")) 18746 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk"))
19116 (modules '((guix build utils) 18747 (modules '((guix build utils)))
19117 (ice-9 ftw)
19118 (srfi srfi-26)))
19119 (snippet 18748 (snippet
19120 #~(begin 18749 #~(begin
19121 (define (delete-all-but directory . preserve)
19122 (with-directory-excursion directory
19123 (let* ((pred (negate (cut member <>
19124 (cons* "." ".." preserve))))
19125 (items (scandir "." pred)))
19126 (for-each (cut delete-file-recursively <>) items))))
19127 (delete-all-but "." "pkg") 18750 (delete-all-but "." "pkg")
19128 (delete-all-but "pkg" "signature") 18751 (delete-all-but "pkg" "signature")
19129 (delete-all-but "pkg/signature" "kms") 18752 (delete-all-but "pkg/signature" "kms")
@@ -19162,17 +18785,9 @@ verification of signatures and attestations produced by Sigstore tools.")
19162 (file-name (git-file-name name version)) 18785 (file-name (git-file-name name version))
19163 (sha256 18786 (sha256
19164 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk")) 18787 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk"))
19165 (modules '((guix build utils) 18788 (modules '((guix build utils)))
19166 (ice-9 ftw)
19167 (srfi srfi-26)))
19168 (snippet 18789 (snippet
19169 #~(begin 18790 #~(begin
19170 (define (delete-all-but directory . preserve)
19171 (with-directory-excursion directory
19172 (let* ((pred (negate (cut member <>
19173 (cons* "." ".." preserve))))
19174 (items (scandir "." pred)))
19175 (for-each (cut delete-file-recursively <>) items))))
19176 (delete-all-but "." "pkg") 18791 (delete-all-but "." "pkg")
19177 (delete-all-but "pkg" "signature") 18792 (delete-all-but "pkg" "signature")
19178 (delete-all-but "pkg/signature" "kms") 18793 (delete-all-but "pkg/signature" "kms")
@@ -19213,17 +18828,9 @@ service.")
19213 (file-name (git-file-name name version)) 18828 (file-name (git-file-name name version))
19214 (sha256 18829 (sha256
19215 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk")) 18830 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk"))
19216 (modules '((guix build utils) 18831 (modules '((guix build utils)))
19217 (ice-9 ftw)
19218 (srfi srfi-26)))
19219 (snippet 18832 (snippet
19220 #~(begin 18833 #~(begin
19221 (define (delete-all-but directory . preserve)
19222 (with-directory-excursion directory
19223 (let* ((pred (negate (cut member <>
19224 (cons* "." ".." preserve))))
19225 (items (scandir "." pred)))
19226 (for-each (cut delete-file-recursively <>) items))))
19227 (delete-all-but "." "pkg") 18834 (delete-all-but "." "pkg")
19228 (delete-all-but "pkg" "signature") 18835 (delete-all-but "pkg" "signature")
19229 (delete-all-but "pkg/signature" "kms") 18836 (delete-all-but "pkg/signature" "kms")
@@ -19261,17 +18868,9 @@ service.")
19261 (file-name (git-file-name name version)) 18868 (file-name (git-file-name name version))
19262 (sha256 18869 (sha256
19263 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk")) 18870 (base32 "0shnvcgz4g7v65biwraahjrbsmr13qmb903al50giak2694qhyyk"))
19264 (modules '((guix build utils) 18871 (modules '((guix build utils)))
19265 (ice-9 ftw)
19266 (srfi srfi-26)))
19267 (snippet 18872 (snippet
19268 #~(begin 18873 #~(begin
19269 (define (delete-all-but directory . preserve)
19270 (with-directory-excursion directory
19271 (let* ((pred (negate (cut member <>
19272 (cons* "." ".." preserve))))
19273 (items (scandir "." pred)))
19274 (for-each (cut delete-file-recursively <>) items))))
19275 (delete-all-but "." "pkg") 18874 (delete-all-but "." "pkg")
19276 (delete-all-but "pkg" "signature") 18875 (delete-all-but "pkg" "signature")
19277 (delete-all-but "pkg/signature" "kms") 18876 (delete-all-but "pkg/signature" "kms")
@@ -22780,17 +22379,9 @@ progress tracking and timeout support.")
22780 (file-name (git-file-name name version)) 22379 (file-name (git-file-name name version))
22781 (sha256 22380 (sha256
22782 (base32 "0xg0bh3fv4av63ika8f7vgj4f929b108ia5ccyqrv00j3k4vyjm1")) 22381 (base32 "0xg0bh3fv4av63ika8f7vgj4f929b108ia5ccyqrv00j3k4vyjm1"))
22783 (modules '((guix build utils) 22382 (modules '((guix build utils)))
22784 (ice-9 ftw)
22785 (srfi srfi-26)))
22786 (snippet 22383 (snippet
22787 #~(begin 22384 #~(begin
22788 (define (delete-all-but directory . preserve)
22789 (with-directory-excursion directory
22790 (let* ((pred (negate (cut member <>
22791 (cons* "." ".." preserve))))
22792 (items (scandir "." pred)))
22793 (for-each (cut delete-file-recursively <>) items))))
22794 (delete-all-but "." "api") 22385 (delete-all-but "." "api")
22795 ;; This is a workaround to provide a correct import-path. 22386 ;; This is a workaround to provide a correct import-path.
22796 (rename-file "api" "tmp") 22387 (rename-file "api" "tmp")
@@ -22833,17 +22424,9 @@ interacting with the etcd v3 API.")
22833 (file-name (git-file-name name version)) 22424 (file-name (git-file-name name version))
22834 (sha256 22425 (sha256
22835 (base32 "0xg0bh3fv4av63ika8f7vgj4f929b108ia5ccyqrv00j3k4vyjm1")) 22426 (base32 "0xg0bh3fv4av63ika8f7vgj4f929b108ia5ccyqrv00j3k4vyjm1"))
22836 (modules '((guix build utils) 22427 (modules '((guix build utils)))
22837 (ice-9 ftw)
22838 (srfi srfi-26)))
22839 (snippet 22428 (snippet
22840 #~(begin 22429 #~(begin
22841 (define (delete-all-but directory . preserve)
22842 (with-directory-excursion directory
22843 (let* ((pred (negate (cut member <>
22844 (cons* "." ".." preserve))))
22845 (items (scandir "." pred)))
22846 (for-each (cut delete-file-recursively <>) items))))
22847 (delete-all-but "." "client") 22430 (delete-all-but "." "client")
22848 (delete-all-but "client" "pkg") 22431 (delete-all-but "client" "pkg")
22849 ;; This is a workaround to provide a correct import-path. 22432 ;; This is a workaround to provide a correct import-path.
@@ -23028,18 +22611,8 @@ lists)
23028 (file-name (git-file-name name version)) 22611 (file-name (git-file-name name version))
23029 (sha256 22612 (sha256
23030 (base32 "155qcbl84bwy7m9k221w75yakfv71fbxpfn9g3d7nnq6cl30fbfw")) 22613 (base32 "155qcbl84bwy7m9k221w75yakfv71fbxpfn9g3d7nnq6cl30fbfw"))
23031 (modules '((guix build utils) 22614 (modules '((guix build utils)))
23032 (ice-9 ftw) 22615 (snippet #~(delete-all-but "." "sdk"))))
23033 (srfi srfi-26)))
23034 (snippet
23035 #~(begin
23036 (define (delete-all-but directory . preserve)
23037 (with-directory-excursion directory
23038 (let* ((pred (negate (cut member <>
23039 (cons* "." ".." preserve))))
23040 (items (scandir "." pred)))
23041 (for-each (cut delete-file-recursively <>) items))))
23042 (delete-all-but "." "sdk")))))
23043 (build-system go-build-system) 22616 (build-system go-build-system)
23044 (arguments 22617 (arguments
23045 (list 22618 (list
@@ -23067,17 +22640,9 @@ lists)
23067 (file-name (git-file-name name version)) 22640 (file-name (git-file-name name version))
23068 (sha256 22641 (sha256
23069 (base32 "0nh7g1zxr3drqcbhsnnkqaz2hn1rnawg8jalixng23c9hwfgqaly")) 22642 (base32 "0nh7g1zxr3drqcbhsnnkqaz2hn1rnawg8jalixng23c9hwfgqaly"))
23070 (modules '((guix build utils) 22643 (modules '((guix build utils)))
23071 (ice-9 ftw)
23072 (srfi srfi-26)))
23073 (snippet 22644 (snippet
23074 #~(begin 22645 #~(begin
23075 (define (delete-all-but directory . preserve)
23076 (with-directory-excursion directory
23077 (let* ((pred (negate (cut member <>
23078 (cons* "." ".." preserve))))
23079 (items (scandir "." pred)))
23080 (for-each (cut delete-file-recursively <>) items))))
23081 (delete-all-but "detectors/aws" "ec2") 22646 (delete-all-but "detectors/aws" "ec2")
23082 (delete-all-but "detectors" "aws") 22647 (delete-all-but "detectors" "aws")
23083 (delete-all-but "." "detectors"))))) 22648 (delete-all-but "." "detectors")))))
@@ -23116,17 +22681,9 @@ Compute Cloud, EC2} instances using @code{aws-sdk-go-v2}.")
23116 (file-name (git-file-name name version)) 22681 (file-name (git-file-name name version))
23117 (sha256 22682 (sha256
23118 (base32 "0nh7g1zxr3drqcbhsnnkqaz2hn1rnawg8jalixng23c9hwfgqaly")) 22683 (base32 "0nh7g1zxr3drqcbhsnnkqaz2hn1rnawg8jalixng23c9hwfgqaly"))
23119 (modules '((guix build utils) 22684 (modules '((guix build utils)))
23120 (ice-9 ftw)
23121 (srfi srfi-26)))
23122 (snippet 22685 (snippet
23123 #~(begin 22686 #~(begin
23124 (define (delete-all-but directory . preserve)
23125 (with-directory-excursion directory
23126 (let* ((pred (negate (cut member <>
23127 (cons* "." ".." preserve))))
23128 (items (scandir "." pred)))
23129 (for-each (cut delete-file-recursively <>) items))))
23130 (delete-all-but "detectors/aws" "ecs") 22687 (delete-all-but "detectors/aws" "ecs")
23131 (delete-all-but "detectors" "aws") 22688 (delete-all-but "detectors" "aws")
23132 (delete-all-but "." "detectors"))))) 22689 (delete-all-but "." "detectors")))))
@@ -23161,17 +22718,9 @@ Container Service, ECS} instances.")
23161 (file-name (git-file-name name version)) 22718 (file-name (git-file-name name version))
23162 (sha256 22719 (sha256
23163 (base32 "18k9pqwzlcjkiz8cy2hgl5jwal10ypj171hra4zsqizbqjivd4lc")) 22720 (base32 "18k9pqwzlcjkiz8cy2hgl5jwal10ypj171hra4zsqizbqjivd4lc"))
23164 (modules '((guix build utils) 22721 (modules '((guix build utils)))
23165 (ice-9 ftw)
23166 (srfi srfi-26)))
23167 (snippet 22722 (snippet
23168 #~(begin 22723 #~(begin
23169 (define (delete-all-but directory . preserve)
23170 (with-directory-excursion directory
23171 (let* ((pred (negate (cut member <>
23172 (cons* "." ".." preserve))))
23173 (items (scandir "." pred)))
23174 (for-each (cut delete-file-recursively <>) items))))
23175 (delete-all-but "detectors" "gcp") 22724 (delete-all-but "detectors" "gcp")
23176 (delete-all-but "." "detectors"))))) 22725 (delete-all-but "." "detectors")))))
23177 (build-system go-build-system) 22726 (build-system go-build-system)
@@ -23251,17 +22800,9 @@ Container Service, ECS} instances.")
23251 (file-name (git-file-name name version)) 22800 (file-name (git-file-name name version))
23252 (sha256 22801 (sha256
23253 (base32 "06h5rvvji92dj25vb37s9vmvp5fignbp7zbigbdhbql16gfhp225")) 22802 (base32 "06h5rvvji92dj25vb37s9vmvp5fignbp7zbigbdhbql16gfhp225"))
23254 (modules '((guix build utils) 22803 (modules '((guix build utils)))
23255 (ice-9 ftw)
23256 (srfi srfi-26)))
23257 (snippet 22804 (snippet
23258 #~(begin 22805 #~(begin
23259 (define (delete-all-but directory . preserve)
23260 (with-directory-excursion directory
23261 (let* ((pred (negate (cut member <>
23262 (cons* "." ".." preserve))))
23263 (items (scandir "." pred)))
23264 (for-each (cut delete-file-recursively <>) items))))
23265 (delete-all-but "instrumentation/net/http/httptrace" 22806 (delete-all-but "instrumentation/net/http/httptrace"
23266 "otelhttptrace") 22807 "otelhttptrace")
23267 (delete-all-but "instrumentation/net/http" "httptrace") 22808 (delete-all-but "instrumentation/net/http" "httptrace")
@@ -23355,20 +22896,9 @@ Handler) and routes @code{WithRouteTag}.")
23355 (file-name (git-file-name name version)) 22896 (file-name (git-file-name name version))
23356 (sha256 22897 (sha256
23357 (base32 "15k2xps4qv37pw3ml6pj98kihl6a04bbr005px5hhckl23s40w2c")) 22898 (base32 "15k2xps4qv37pw3ml6pj98kihl6a04bbr005px5hhckl23s40w2c"))
23358 (modules '((guix build utils) 22899 (modules '((guix build utils)))
23359 (ice-9 ftw)
23360 (srfi srfi-26)))
23361 (snippet 22900 (snippet
23362 #~(begin 22901 #~(begin
23363 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
23364 ;; Consider implementing it as a reusable procedure in
23365 ;; guix/build/utils or guix/build-system/go.
23366 (define (delete-all-but directory . preserve)
23367 (with-directory-excursion directory
23368 (let* ((pred (negate (cut member <>
23369 (cons* "." ".." preserve))))
23370 (items (scandir "." pred)))
23371 (for-each (cut delete-file-recursively <>) items))))
23372 (delete-all-but "propagators" "autoprop") 22902 (delete-all-but "propagators" "autoprop")
23373 (delete-all-but "." "propagators"))))) 22903 (delete-all-but "." "propagators")))))
23374 (build-system go-build-system) 22904 (build-system go-build-system)
@@ -23634,17 +23164,9 @@ go.opentelemetry.io/otel/trace.")
23634 (file-name (git-file-name name version)) 23164 (file-name (git-file-name name version))
23635 (sha256 23165 (sha256
23636 (base32 "0583dw99k25k07pnq8hhhb45kwqhsx30lbk9yxsh4m50ji65wl8h")) 23166 (base32 "0583dw99k25k07pnq8hhhb45kwqhsx30lbk9yxsh4m50ji65wl8h"))
23637 (modules '((guix build utils) 23167 (modules '((guix build utils)))
23638 (ice-9 ftw)
23639 (srfi srfi-26)))
23640 (snippet 23168 (snippet
23641 #~(begin 23169 #~(begin
23642 (define (delete-all-but directory . preserve)
23643 (with-directory-excursion directory
23644 (let* ((pred (negate (cut member <>
23645 (cons* "." ".." preserve))))
23646 (items (scandir "." pred)))
23647 (for-each (cut delete-file-recursively <>) items))))
23648 (delete-all-but "bridge" "opentracing") 23170 (delete-all-but "bridge" "opentracing")
23649 (delete-all-but "." "bridge"))))) 23171 (delete-all-but "." "bridge")))))
23650 (build-system go-build-system) 23172 (build-system go-build-system)
@@ -23716,17 +23238,9 @@ API calls to the @code{OpenTelemetry} SDK.")
23716 (file-name (git-file-name name version)) 23238 (file-name (git-file-name name version))
23717 (sha256 23239 (sha256
23718 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc")) 23240 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc"))
23719 (modules '((guix build utils) 23241 (modules '((guix build utils)))
23720 (ice-9 ftw)
23721 (srfi srfi-26)))
23722 (snippet 23242 (snippet
23723 #~(begin 23243 #~(begin
23724 (define (delete-all-but directory . preserve)
23725 (with-directory-excursion directory
23726 (let* ((pred (negate (cut member <>
23727 (cons* "." ".." preserve))))
23728 (items (scandir "." pred)))
23729 (for-each (cut delete-file-recursively <>) items))))
23730 (delete-all-but "exporters/otlp/otlpmetric" "otlpmetricgrpc") 23244 (delete-all-but "exporters/otlp/otlpmetric" "otlpmetricgrpc")
23731 (delete-all-but "." "exporters"))))) 23245 (delete-all-but "." "exporters")))))
23732 (build-system go-build-system) 23246 (build-system go-build-system)
@@ -23767,17 +23281,9 @@ protobuf payloads.")
23767 (file-name (git-file-name name version)) 23281 (file-name (git-file-name name version))
23768 (sha256 23282 (sha256
23769 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc")) 23283 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc"))
23770 (modules '((guix build utils) 23284 (modules '((guix build utils)))
23771 (ice-9 ftw)
23772 (srfi srfi-26)))
23773 (snippet 23285 (snippet
23774 #~(begin 23286 #~(begin
23775 (define (delete-all-but directory . preserve)
23776 (with-directory-excursion directory
23777 (let* ((pred (negate (cut member <>
23778 (cons* "." ".." preserve))))
23779 (items (scandir "." pred)))
23780 (for-each (cut delete-file-recursively <>) items))))
23781 (delete-all-but "exporters/otlp/otlpmetric" "otlpmetrichttp") 23287 (delete-all-but "exporters/otlp/otlpmetric" "otlpmetrichttp")
23782 (delete-all-but "." "exporters"))))) 23288 (delete-all-but "." "exporters")))))
23783 (build-system go-build-system) 23289 (build-system go-build-system)
@@ -23816,20 +23322,9 @@ protobuf payloads.")
23816 (file-name (git-file-name name version)) 23322 (file-name (git-file-name name version))
23817 (sha256 23323 (sha256
23818 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30")) 23324 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30"))
23819 (modules '((guix build utils) 23325 (modules '((guix build utils)))
23820 (ice-9 ftw)
23821 (srfi srfi-26)))
23822 (snippet 23326 (snippet
23823 #~(begin 23327 #~(begin
23824 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
23825 ;; Consider implementing it as a reusable procedure in
23826 ;; guix/build/utils or guix/build-system/go.
23827 (define (delete-all-but directory . preserve)
23828 (with-directory-excursion directory
23829 (let* ((pred (negate (cut member <>
23830 (cons* "." ".." preserve))))
23831 (items (scandir "." pred)))
23832 (for-each (cut delete-file-recursively <>) items))))
23833 (delete-all-but "exporters/otlp" "otlptrace") 23328 (delete-all-but "exporters/otlp" "otlptrace")
23834 (delete-all-but "." "exporters") 23329 (delete-all-but "." "exporters")
23835 ;; Submodules with their own go.mod files and packed as separated 23330 ;; Submodules with their own go.mod files and packed as separated
@@ -23871,17 +23366,9 @@ protobuf payloads.")
23871 (file-name (git-file-name name version)) 23366 (file-name (git-file-name name version))
23872 (sha256 23367 (sha256
23873 (base32 "0583dw99k25k07pnq8hhhb45kwqhsx30lbk9yxsh4m50ji65wl8h")) 23368 (base32 "0583dw99k25k07pnq8hhhb45kwqhsx30lbk9yxsh4m50ji65wl8h"))
23874 (modules '((guix build utils) 23369 (modules '((guix build utils)))
23875 (ice-9 ftw)
23876 (srfi srfi-26)))
23877 (snippet 23370 (snippet
23878 #~(begin 23371 #~(begin
23879 (define (delete-all-but directory . preserve)
23880 (with-directory-excursion directory
23881 (let* ((pred (negate (cut member <>
23882 (cons* "." ".." preserve))))
23883 (items (scandir "." pred)))
23884 (for-each (cut delete-file-recursively <>) items))))
23885 (delete-all-but "exporters/otlp/otlptrace" "otlptracegrpc") 23372 (delete-all-but "exporters/otlp/otlptrace" "otlptracegrpc")
23886 (delete-all-but "exporters/otlp" "otlptrace") 23373 (delete-all-but "exporters/otlp" "otlptrace")
23887 (delete-all-but "." "exporters"))))) 23374 (delete-all-but "." "exporters")))))
@@ -23928,20 +23415,9 @@ By default the telemetry is sent to @@url{https://localhost:4317}.")
23928 (file-name (git-file-name name version)) 23415 (file-name (git-file-name name version))
23929 (sha256 23416 (sha256
23930 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30")) 23417 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30"))
23931 (modules '((guix build utils) 23418 (modules '((guix build utils)))
23932 (ice-9 ftw)
23933 (srfi srfi-26)))
23934 (snippet 23419 (snippet
23935 #~(begin 23420 #~(begin
23936 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
23937 ;; Consider implementing it as a reusable procedure in
23938 ;; guix/build/utils or guix/build-system/go.
23939 (define (delete-all-but directory . preserve)
23940 (with-directory-excursion directory
23941 (let* ((pred (negate (cut member <>
23942 (cons* "." ".." preserve))))
23943 (items (scandir "." pred)))
23944 (for-each (cut delete-file-recursively <>) items))))
23945 (delete-all-but "exporters/otlp/otlptrace" "otlptracehttp") 23421 (delete-all-but "exporters/otlp/otlptrace" "otlptracehttp")
23946 (delete-all-but "." "exporters"))))) 23422 (delete-all-but "." "exporters")))))
23947 (build-system go-build-system) 23423 (build-system go-build-system)
@@ -23983,20 +23459,9 @@ protobuf payloads. By default the telemetry is sent to
23983 (file-name (git-file-name name version)) 23459 (file-name (git-file-name name version))
23984 (sha256 23460 (sha256
23985 (base32 "0ag8103mf4j03lspi5rxk161iscbw1wkdk6ri9f746jia1w4qji8")) 23461 (base32 "0ag8103mf4j03lspi5rxk161iscbw1wkdk6ri9f746jia1w4qji8"))
23986 (modules '((guix build utils) 23462 (modules '((guix build utils)))
23987 (ice-9 ftw)
23988 (srfi srfi-26)))
23989 (snippet 23463 (snippet
23990 #~(begin 23464 #~(begin
23991 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
23992 ;; Consider implementing it as a reusable procedure in
23993 ;; guix/build/utils or guix/build-system/go.
23994 (define (delete-all-but directory . preserve)
23995 (with-directory-excursion directory
23996 (let* ((pred (negate (cut member <>
23997 (cons* "." ".." preserve))))
23998 (items (scandir "." pred)))
23999 (for-each (cut delete-file-recursively <>) items))))
24000 (delete-all-but "exporters" "prometheus") 23465 (delete-all-but "exporters" "prometheus")
24001 (delete-all-but "." "exporters"))))) 23466 (delete-all-but "." "exporters")))))
24002 (build-system go-build-system) 23467 (build-system go-build-system)
@@ -24039,17 +23504,9 @@ prometheus.Collector to provide a handler for these metrics.")
24039 (file-name (git-file-name name version)) 23504 (file-name (git-file-name name version))
24040 (sha256 23505 (sha256
24041 (base32 "0583dw99k25k07pnq8hhhb45kwqhsx30lbk9yxsh4m50ji65wl8h")) 23506 (base32 "0583dw99k25k07pnq8hhhb45kwqhsx30lbk9yxsh4m50ji65wl8h"))
24042 (modules '((guix build utils) 23507 (modules '((guix build utils)))
24043 (ice-9 ftw)
24044 (srfi srfi-26)))
24045 (snippet 23508 (snippet
24046 #~(begin 23509 #~(begin
24047 (define (delete-all-but directory . preserve)
24048 (with-directory-excursion directory
24049 (let* ((pred (negate (cut member <>
24050 (cons* "." ".." preserve))))
24051 (items (scandir "." pred)))
24052 (for-each (cut delete-file-recursively <>) items))))
24053 (delete-all-but "exporters/stdout" "stdoutmetric") 23510 (delete-all-but "exporters/stdout" "stdoutmetric")
24054 (delete-all-but "exporters" "stdout") 23511 (delete-all-but "exporters" "stdout")
24055 (delete-all-but "." "exporters"))))) 23512 (delete-all-but "." "exporters")))))
@@ -24092,17 +23549,9 @@ for production use.")
24092 (file-name (git-file-name name version)) 23549 (file-name (git-file-name name version))
24093 (sha256 23550 (sha256
24094 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30")) 23551 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30"))
24095 (modules '((guix build utils) 23552 (modules '((guix build utils)))
24096 (ice-9 ftw)
24097 (srfi srfi-26)))
24098 (snippet 23553 (snippet
24099 #~(begin 23554 #~(begin
24100 (define (delete-all-but directory . preserve)
24101 (with-directory-excursion directory
24102 (let* ((pred (negate (cut member <>
24103 (cons* "." ".." preserve))))
24104 (items (scandir "." pred)))
24105 (for-each (cut delete-file-recursively <>) items))))
24106 (delete-all-but "exporters/stdout" "stdouttrace") 23555 (delete-all-but "exporters/stdout" "stdouttrace")
24107 (delete-all-but "exporters" "stdout") 23556 (delete-all-but "exporters" "stdout")
24108 (delete-all-but "." "exporters"))))) 23557 (delete-all-but "." "exporters")))))
@@ -24139,20 +23588,9 @@ telemetry to be written to an output destination as JSON.")
24139 (file-name (git-file-name name version)) 23588 (file-name (git-file-name name version))
24140 (sha256 23589 (sha256
24141 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30")) 23590 (base32 "1kvfbqc56p1h9rh9cvgn37ya6k10613r0f2rhjiwrrkgs2mszk30"))
24142 (modules '((guix build utils) 23591 (modules '((guix build utils)))
24143 (ice-9 ftw)
24144 (srfi srfi-26)))
24145 (snippet 23592 (snippet
24146 #~(begin 23593 #~(begin
24147 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
24148 ;; Consider implementing it as a reusable procedure in
24149 ;; guix/build/utils or guix/build-system/go.
24150 (define (delete-all-but directory . preserve)
24151 (with-directory-excursion directory
24152 (let* ((pred (negate (cut member <>
24153 (cons* "." ".." preserve))))
24154 (items (scandir "." pred)))
24155 (for-each (cut delete-file-recursively <>) items))))
24156 (delete-all-but "exporters" "zipkin") 23594 (delete-all-but "exporters" "zipkin")
24157 (delete-all-but "." "exporters"))))) 23595 (delete-all-but "." "exporters")))))
24158 (build-system go-build-system) 23596 (build-system go-build-system)
@@ -24187,21 +23625,8 @@ telemetry to be written to an output destination as JSON.")
24187 (file-name (git-file-name name version)) 23625 (file-name (git-file-name name version))
24188 (sha256 23626 (sha256
24189 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc")) 23627 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc"))
24190 (modules '((guix build utils) 23628 (modules '((guix build utils)))
24191 (ice-9 ftw) 23629 (snippet #~(delete-all-but "." "log"))))
24192 (srfi srfi-26)))
24193 (snippet
24194 #~(begin
24195 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
24196 ;; Consider implementing it as a reusable procedure in
24197 ;; guix/build/utils or guix/build-system/go.
24198 (define (delete-all-but directory . preserve)
24199 (with-directory-excursion directory
24200 (let* ((pred (negate (cut member <>
24201 (cons* "." ".." preserve))))
24202 (items (scandir "." pred)))
24203 (for-each (cut delete-file-recursively <>) items))))
24204 (delete-all-but "." "log")))))
24205 (build-system go-build-system) 23630 (build-system go-build-system)
24206 (arguments 23631 (arguments
24207 (list 23632 (list
@@ -24246,17 +23671,9 @@ OpenTelemetry API.")))
24246 (file-name (git-file-name name version)) 23671 (file-name (git-file-name name version))
24247 (sha256 23672 (sha256
24248 (base32 "16x0aw116dadi73vzh8bcwasy79sblvh6k1q7yfx8n841x48ry8r")) 23673 (base32 "16x0aw116dadi73vzh8bcwasy79sblvh6k1q7yfx8n841x48ry8r"))
24249 (modules '((guix build utils) 23674 (modules '((guix build utils)))
24250 (ice-9 ftw)
24251 (srfi srfi-26)))
24252 (snippet 23675 (snippet
24253 #~(begin 23676 #~(begin
24254 (define (delete-all-but directory . preserve)
24255 (with-directory-excursion directory
24256 (let* ((pred (negate (cut member <>
24257 (cons* "." ".." preserve))))
24258 (items (scandir "." pred)))
24259 (for-each (cut delete-file-recursively <>) items))))
24260 (delete-all-but "metric" "x") 23677 (delete-all-but "metric" "x")
24261 (delete-all-but "." "metric"))))) 23678 (delete-all-but "." "metric")))))
24262 (build-system go-build-system) 23679 (build-system go-build-system)
@@ -24290,20 +23707,9 @@ entirely.")
24290 (file-name (git-file-name name version)) 23707 (file-name (git-file-name name version))
24291 (sha256 23708 (sha256
24292 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc")) 23709 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc"))
24293 (modules '((guix build utils) 23710 (modules '((guix build utils)))
24294 (ice-9 ftw)
24295 (srfi srfi-26)))
24296 (snippet 23711 (snippet
24297 #~(begin 23712 #~(begin
24298 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
24299 ;; Consider implementing it as a reusable procedure in
24300 ;; guix/build/utils or guix/build-system/go.
24301 (define (delete-all-but directory . preserve)
24302 (with-directory-excursion directory
24303 (let* ((pred (negate (cut member <>
24304 (cons* "." ".." preserve))))
24305 (items (scandir "." pred)))
24306 (for-each (cut delete-file-recursively <>) items))))
24307 (delete-all-but "." "sdk") 23713 (delete-all-but "." "sdk")
24308 (delete-file-recursively "sdk/log") 23714 (delete-file-recursively "sdk/log")
24309 (delete-file-recursively "sdk/metric"))))) 23715 (delete-file-recursively "sdk/metric")))))
@@ -24340,20 +23746,9 @@ entirely.")
24340 (file-name (git-file-name name version)) 23746 (file-name (git-file-name name version))
24341 (sha256 23747 (sha256
24342 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc")) 23748 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc"))
24343 (modules '((guix build utils) 23749 (modules '((guix build utils)))
24344 (ice-9 ftw)
24345 (srfi srfi-26)))
24346 (snippet 23750 (snippet
24347 #~(begin 23751 #~(begin
24348 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
24349 ;; Consider implementing it as a reusable procedure in
24350 ;; guix/build/utils or guix/build-system/go.
24351 (define (delete-all-but directory . preserve)
24352 (with-directory-excursion directory
24353 (let* ((pred (negate (cut member <>
24354 (cons* "." ".." preserve))))
24355 (items (scandir "." pred)))
24356 (for-each (cut delete-file-recursively <>) items))))
24357 (delete-all-but "sdk" "log") 23752 (delete-all-but "sdk" "log")
24358 (delete-all-but "." "sdk"))))) 23753 (delete-all-but "." "sdk")))))
24359 (build-system go-build-system) 23754 (build-system go-build-system)
@@ -24388,20 +23783,9 @@ entirely.")
24388 (file-name (git-file-name name version)) 23783 (file-name (git-file-name name version))
24389 (sha256 23784 (sha256
24390 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc")) 23785 (base32 "0sb36qyq389fif9qp5iiqp6w41dfcwi95gb0bsbvznvijhd8c1cc"))
24391 (modules '((guix build utils) 23786 (modules '((guix build utils)))
24392 (ice-9 ftw)
24393 (srfi srfi-26)))
24394 (snippet 23787 (snippet
24395 #~(begin 23788 #~(begin
24396 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
24397 ;; Consider implementing it as a reusable procedure in
24398 ;; guix/build/utils or guix/build-system/go.
24399 (define (delete-all-but directory . preserve)
24400 (with-directory-excursion directory
24401 (let* ((pred (negate (cut member <>
24402 (cons* "." ".." preserve))))
24403 (items (scandir "." pred)))
24404 (for-each (cut delete-file-recursively <>) items))))
24405 (delete-all-but "sdk" "metric") 23789 (delete-all-but "sdk" "metric")
24406 (delete-all-but "." "sdk"))))) 23790 (delete-all-but "." "sdk")))))
24407 (build-system go-build-system) 23791 (build-system go-build-system)
@@ -24672,18 +24056,8 @@ most complex network-level interference.")
24672 (file-name (git-file-name name version)) 24056 (file-name (git-file-name name version))
24673 (sha256 24057 (sha256
24674 (base32 "01hgmz80292q6sd4p43ldvnq1fwkknq6hzsg671nxfhzz99v30dx")) 24058 (base32 "01hgmz80292q6sd4p43ldvnq1fwkknq6hzsg671nxfhzz99v30dx"))
24675 (modules '((guix build utils) 24059 (modules '((guix build utils)))
24676 (ice-9 ftw) 24060 (snippet #~(delete-all-but "." "x"))))
24677 (srfi srfi-26)))
24678 (snippet
24679 #~(begin
24680 (define (delete-all-but directory . preserve)
24681 (with-directory-excursion directory
24682 (let* ((pred (negate (cut member <>
24683 (cons* "." ".." preserve))))
24684 (items (scandir "." pred)))
24685 (for-each (cut delete-file-recursively <>) items))))
24686 (delete-all-but "." "x")))))
24687 (build-system go-build-system) 24061 (build-system go-build-system)
24688 (arguments 24062 (arguments
24689 (list 24063 (list
@@ -25044,20 +24418,9 @@ interacting with Google's @code{gRPC} APIs.")
25044 (uri (git-reference 24418 (uri (git-reference
25045 (url "https://github.com/googleapis/go-genproto") 24419 (url "https://github.com/googleapis/go-genproto")
25046 (commit (go-version->git-ref version #:subdir "googleapis/api")))) 24420 (commit (go-version->git-ref version #:subdir "googleapis/api"))))
25047 (modules '((guix build utils) 24421 (modules '((guix build utils)))
25048 (ice-9 ftw)
25049 (srfi srfi-26)))
25050 (snippet 24422 (snippet
25051 #~(begin 24423 #~(begin
25052 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
25053 ;; Consider implementing it as a reusable procedure in
25054 ;; guix/build/utils or guix/build-system/go.
25055 (define (delete-all-but directory . preserve)
25056 (with-directory-excursion directory
25057 (let* ((pred (negate (cut member <>
25058 (cons* "." ".." preserve))))
25059 (items (scandir "." pred)))
25060 (for-each (cut delete-file-recursively <>) items))))
25061 ;; Submodules with their own go.mod files and packaged separately: 24424 ;; Submodules with their own go.mod files and packaged separately:
25062 ;; 24425 ;;
25063 ;; - google.golang.org/genproto/googleapis/api/apikeys 24426 ;; - google.golang.org/genproto/googleapis/api/apikeys
@@ -25102,17 +24465,9 @@ interacting with Google's @code{gRPC} APIs.")
25102 (file-name (git-file-name name version)) 24465 (file-name (git-file-name name version))
25103 (sha256 24466 (sha256
25104 (base32 "0yvcd9xiyarwmzgl70xqiaxxla3qiys1iysqajwmbrf8k4ghr26p")) 24467 (base32 "0yvcd9xiyarwmzgl70xqiaxxla3qiys1iysqajwmbrf8k4ghr26p"))
25105 (modules '((guix build utils) 24468 (modules '((guix build utils)))
25106 (ice-9 ftw)
25107 (srfi srfi-26)))
25108 (snippet 24469 (snippet
25109 #~(begin 24470 #~(begin
25110 (define (delete-all-but directory . preserve)
25111 (with-directory-excursion directory
25112 (let* ((pred (negate (cut member <>
25113 (cons* "." ".." preserve))))
25114 (items (scandir "." pred)))
25115 (for-each (cut delete-file-recursively <>) items))))
25116 (delete-all-but "googleapis" "bytestream") 24471 (delete-all-but "googleapis" "bytestream")
25117 (delete-all-but "." "googleapis"))))) 24472 (delete-all-but "." "googleapis")))))
25118 (build-system go-build-system) 24473 (build-system go-build-system)
@@ -25214,18 +24569,9 @@ Google Cloud Platform}.")
25214 (file-name (git-file-name name version)) 24569 (file-name (git-file-name name version))
25215 (sha256 24570 (sha256
25216 (base32 "0yn1ir5y0wc91q95ngr3dlz2cyhp0wlb9l30hkw2cr34r38hq19w")) 24571 (base32 "0yn1ir5y0wc91q95ngr3dlz2cyhp0wlb9l30hkw2cr34r38hq19w"))
25217 (modules '((guix build utils) 24572 (modules '((guix build utils)))
25218 (ice-9 ftw)
25219 (srfi srfi-26)))
25220 (snippet 24573 (snippet
25221 #~(begin 24574 #~(begin (delete-all-but "." "cmd")))))
25222 (define (delete-all-but directory . preserve)
25223 (with-directory-excursion directory
25224 (let* ((pred (negate (cut member <>
25225 (cons* "." ".." preserve))))
25226 (items (scandir "." pred)))
25227 (for-each (cut delete-file-recursively <>) items))))
25228 (delete-all-but "." "cmd")))))
25229 (build-system go-build-system) 24575 (build-system go-build-system)
25230 (arguments 24576 (arguments
25231 (list 24577 (list
@@ -25255,18 +24601,8 @@ generate Go code.")
25255 (file-name (git-file-name name version)) 24601 (file-name (git-file-name name version))
25256 (sha256 24602 (sha256
25257 (base32 "1p7h51pm4r8gfxaimvkmkwk0ii4rvhs6p6shvs3qaig86wg1rxwb")) 24603 (base32 "1p7h51pm4r8gfxaimvkmkwk0ii4rvhs6p6shvs3qaig86wg1rxwb"))
25258 (modules '((guix build utils) 24604 (modules '((guix build utils)))
25259 (ice-9 ftw) 24605 (snippet #~(delete-all-but "." "examples"))))
25260 (srfi srfi-26)))
25261 (snippet
25262 #~(begin
25263 (define (delete-all-but directory . preserve)
25264 (with-directory-excursion directory
25265 (let* ((pred (negate (cut member <>
25266 (cons* "." ".." preserve))))
25267 (items (scandir "." pred)))
25268 (for-each (cut delete-file-recursively <>) items))))
25269 (delete-all-but "." "examples")))))
25270 (build-system go-build-system) 24606 (build-system go-build-system)
25271 (arguments 24607 (arguments
25272 (list 24608 (list
@@ -25610,18 +24946,9 @@ the code or routes.")
25610 (file-name (git-file-name name version)) 24946 (file-name (git-file-name name version))
25611 (sha256 24947 (sha256
25612 (base32 "1appaqgllddcl6kxkz3azix0xhlzy093vvxi6y3im1mkf5zblwl7")) 24948 (base32 "1appaqgllddcl6kxkz3azix0xhlzy093vvxi6y3im1mkf5zblwl7"))
25613 (modules '((guix build utils) 24949 (modules '((guix build utils)))
25614 (ice-9 ftw)
25615 (srfi srfi-26)))
25616 (snippet 24950 (snippet
25617 #~(begin 24951 #~(begin (delete-all-but "." "test")))))
25618 (define (delete-all-but directory . preserve)
25619 (with-directory-excursion directory
25620 (let* ((pred (negate (cut member <>
25621 (cons* "." ".." preserve))))
25622 (items (scandir "." pred)))
25623 (for-each (cut delete-file-recursively <>) items))))
25624 (delete-all-but "." "test")))))
25625 (build-system go-build-system) 24952 (build-system go-build-system)
25626 (arguments 24953 (arguments
25627 (list 24954 (list
diff --git a/gnu/packages/golang-xyz.scm b/gnu/packages/golang-xyz.scm
index eca17e73700..7f98d88c0f6 100644
--- a/gnu/packages/golang-xyz.scm
+++ b/gnu/packages/golang-xyz.scm
@@ -1565,26 +1565,8 @@ may be interactive or produce standard formats such as SVG or PDF.")
1565 (file-name (git-file-name name version)) 1565 (file-name (git-file-name name version))
1566 (sha256 1566 (sha256
1567 (base32 "1np11if704xzyhsx9mqhz7djx23g6wnz62r1v9ra6xaz91yfic0n")) 1567 (base32 "1np11if704xzyhsx9mqhz7djx23g6wnz62r1v9ra6xaz91yfic0n"))
1568 (modules '((guix build utils) 1568 (modules '((guix build utils)))
1569 (ice-9 ftw) 1569 (snippet #~(delete-all-but "." "generate"))))
1570 (srfi srfi-26)))
1571 (snippet
1572 #~(begin
1573 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
1574 (define (delete-all-but directory . preserve)
1575 (define (directory? x)
1576 (and=> (stat x #f)
1577 (compose (cut eq? 'directory <>) stat:type)))
1578 (with-directory-excursion directory
1579 (let* ((pred
1580 (negate (cut member <> (append '("." "..") preserve))))
1581 (items (scandir "." pred)))
1582 (for-each (lambda (item)
1583 (if (directory? item)
1584 (delete-file-recursively item)
1585 (delete-file item)))
1586 items))))
1587 (delete-all-but "." "generate")))))
1588 (build-system go-build-system) 1570 (build-system go-build-system)
1589 (arguments 1571 (arguments
1590 (list 1572 (list
@@ -5779,18 +5761,8 @@ and multi-selects with a focus on user experience and aesthetics.")
5779 (file-name (git-file-name name version)) 5761 (file-name (git-file-name name version))
5780 (sha256 5762 (sha256
5781 (base32 "1nr09574rdrgnsj7c2z11233zljl3gcqax0jb3na6v4ixl7gnhq2")) 5763 (base32 "1nr09574rdrgnsj7c2z11233zljl3gcqax0jb3na6v4ixl7gnhq2"))
5782 (modules '((guix build utils) 5764 (modules '((guix build utils)))
5783 (ice-9 ftw) 5765 (snippet #~(delete-all-but "." "ansi"))))
5784 (srfi srfi-26)))
5785 (snippet
5786 #~(begin
5787 (define (delete-all-but directory . preserve)
5788 (with-directory-excursion directory
5789 (let* ((pred (negate (cut member <>
5790 (cons* "." ".." preserve))))
5791 (items (scandir "." pred)))
5792 (for-each (cut delete-file-recursively <>) items))))
5793 (delete-all-but "." "ansi")))))
5794 (build-system go-build-system) 5766 (build-system go-build-system)
5795 (arguments 5767 (arguments
5796 (list 5768 (list
@@ -5827,14 +5799,7 @@ ECMA-48} specs.")
5827 (ice-9 ftw) 5799 (ice-9 ftw)
5828 (srfi srfi-26))) 5800 (srfi srfi-26)))
5829 (snippet 5801 (snippet
5830 #~(begin 5802 #~(begin (delete-all-but "." "cellbuf")))))
5831 (define (delete-all-but directory . preserve)
5832 (with-directory-excursion directory
5833 (let* ((pred (negate (cut member <>
5834 (cons* "." ".." preserve))))
5835 (items (scandir "." pred)))
5836 (for-each (cut delete-file-recursively <>) items))))
5837 (delete-all-but "." "cellbuf")))))
5838 (build-system go-build-system) 5803 (build-system go-build-system)
5839 (arguments 5804 (arguments
5840 (list 5805 (list
@@ -5892,18 +5857,8 @@ ECMA-48} specs.")
5892 (file-name (git-file-name name version)) 5857 (file-name (git-file-name name version))
5893 (sha256 5858 (sha256
5894 (base32 "088786ak8jsgvssbb5y16z066vfq9f6078sjc7iv766knfr2i0x2")) 5859 (base32 "088786ak8jsgvssbb5y16z066vfq9f6078sjc7iv766knfr2i0x2"))
5895 (modules '((guix build utils) 5860 (modules '((guix build utils)))
5896 (ice-9 ftw) 5861 (snippet #~(delete-all-but "." "errors"))))
5897 (srfi srfi-26)))
5898 (snippet
5899 #~(begin
5900 (define (delete-all-but directory . preserve)
5901 (with-directory-excursion directory
5902 (let* ((pred (negate (cut member <>
5903 (cons* "." ".." preserve))))
5904 (items (scandir "." pred)))
5905 (for-each (cut delete-file-recursively <>) items))))
5906 (delete-all-but "." "errors")))))
5907 (build-system go-build-system) 5862 (build-system go-build-system)
5908 (arguments 5863 (arguments
5909 (list 5864 (list
@@ -6055,18 +6010,9 @@ package provides an API for comparing Golden files.")
6055 (file-name (git-file-name name version)) 6010 (file-name (git-file-name name version))
6056 (sha256 6011 (sha256
6057 (base32 "1shw55110fnn4xz80wmgr18czmiil6z1j064m90iw8c7j9llfzn5")) 6012 (base32 "1shw55110fnn4xz80wmgr18czmiil6z1j064m90iw8c7j9llfzn5"))
6058 (modules '((guix build utils) 6013 (modules '((guix build utils)))
6059 (ice-9 ftw)
6060 (srfi srfi-26)))
6061 (snippet 6014 (snippet
6062 #~(begin 6015 #~(begin (delete-all-but "." "term")))))
6063 (define (delete-all-but directory . preserve)
6064 (with-directory-excursion directory
6065 (let* ((pred (negate (cut member <>
6066 (cons* "." ".." preserve))))
6067 (items (scandir "." pred)))
6068 (for-each (cut delete-file-recursively <>) items))))
6069 (delete-all-but "." "term")))))
6070 (build-system go-build-system) 6016 (build-system go-build-system)
6071 (arguments 6017 (arguments
6072 (list 6018 (list
@@ -6154,21 +6100,8 @@ package provides an API for comparing Golden files.")
6154 (file-name (git-file-name name version)) 6100 (file-name (git-file-name name version))
6155 (sha256 6101 (sha256
6156 (base32 "0blpb8vpl7sc6pb43h0730wdcwrkvnhly6qhik6wljrzn2nqz5g2")) 6102 (base32 "0blpb8vpl7sc6pb43h0730wdcwrkvnhly6qhik6wljrzn2nqz5g2"))
6157 (modules '((guix build utils) 6103 (modules '((guix build utils)))
6158 (ice-9 ftw) 6104 (snippet #~(delete-all-but "." "xpty"))))
6159 (srfi srfi-26)))
6160 (snippet
6161 #~(begin
6162 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
6163 ;; Consider implementing it as a reusable procedure in
6164 ;; guix/build/utils or guix/build-system/go.
6165 (define (delete-all-but directory . preserve)
6166 (with-directory-excursion directory
6167 (let* ((pred (negate (cut member <>
6168 (cons* "." ".." preserve))))
6169 (items (scandir "." pred)))
6170 (for-each (cut delete-file-recursively <>) items))))
6171 (delete-all-but "." "xpty")))))
6172 (build-system go-build-system) 6105 (build-system go-build-system)
6173 (arguments 6106 (arguments
6174 (list 6107 (list
@@ -7413,21 +7346,8 @@ packages.")
7413 (file-name (git-file-name name version)) 7346 (file-name (git-file-name name version))
7414 (sha256 7347 (sha256
7415 (base32 "0afaljkkd388f6igr3f2vjnd14yr8h20fcfzglw8j5q1q7a1cvik")) 7348 (base32 "0afaljkkd388f6igr3f2vjnd14yr8h20fcfzglw8j5q1q7a1cvik"))
7416 (modules '((guix build utils) 7349 (modules '((guix build utils)))
7417 (ice-9 ftw) 7350 (snippet #~(delete-all-but "." "pkg"))))
7418 (srfi srfi-26)))
7419 (snippet
7420 #~(begin
7421 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
7422 ;; Consider implementing it as a reusable procedure in
7423 ;; guix/build/utils or guix/build-system/go.
7424 (define (delete-all-but directory . preserve)
7425 (with-directory-excursion directory
7426 (let* ((pred (negate (cut member <>
7427 (cons* "." ".." preserve))))
7428 (items (scandir "." pred)))
7429 (for-each (cut delete-file-recursively <>) items))))
7430 (delete-all-but "." "pkg")))))
7431 (build-system go-build-system) 7351 (build-system go-build-system)
7432 (arguments 7352 (arguments
7433 (list 7353 (list
@@ -13235,17 +13155,9 @@ etc.).")
13235 (file-name (git-file-name name version)) 13155 (file-name (git-file-name name version))
13236 (sha256 13156 (sha256
13237 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458")) 13157 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458"))
13238 (modules '((guix build utils) 13158 (modules '((guix build utils)))
13239 (ice-9 ftw)
13240 (srfi srfi-26)))
13241 (snippet 13159 (snippet
13242 #~(begin 13160 #~(begin
13243 (define (delete-all-but directory . preserve)
13244 (with-directory-excursion directory
13245 (let* ((pred (negate (cut member <>
13246 (cons* "." ".." preserve))))
13247 (items (scandir "." pred)))
13248 (for-each (cut delete-file-recursively <>) items))))
13249 (delete-all-but "." "jsonutils") 13161 (delete-all-but "." "jsonutils")
13250 ;; Submodules with their own go.mod files and packaged separately: 13162 ;; Submodules with their own go.mod files and packaged separately:
13251 (delete-file-recursively "jsonutils/fixtures_test") 13163 (delete-file-recursively "jsonutils/fixtures_test")
@@ -13294,18 +13206,8 @@ with the order of keys maintained
13294 (file-name (git-file-name name version)) 13206 (file-name (git-file-name name version))
13295 (sha256 13207 (sha256
13296 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458")) 13208 (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458"))
13297 (modules '((guix build utils) 13209 (modules '((guix build utils)))
13298 (ice-9 ftw) 13210 (snippet #~(delete-all-but "." "yamlutils"))))
13299 (srfi srfi-26)))
13300 (snippet
13301 #~(begin
13302 (define (delete-all-but directory . preserve)
13303 (with-directory-excursion directory
13304 (let* ((pred (negate (cut member <>
13305 (cons* "." ".." preserve))))
13306 (items (scandir "." pred)))
13307 (for-each (cut delete-file-recursively <>) items))))
13308 (delete-all-but "." "yamlutils")))))
13309 (build-system go-build-system) 13211 (build-system go-build-system)
13310 (arguments 13212 (arguments
13311 (list 13213 (list
@@ -18279,18 +18181,9 @@ Twisted's manhole library} .")
18279 (file-name (git-file-name name version)) 18181 (file-name (git-file-name name version))
18280 (sha256 18182 (sha256
18281 (base32 "0xj782ghf0iv8r2xxmg2vrh72b02h216y4yfyi60y9z0691lrsip")) 18183 (base32 "0xj782ghf0iv8r2xxmg2vrh72b02h216y4yfyi60y9z0691lrsip"))
18282 (modules '((guix build utils) 18184 (modules '((guix build utils)))
18283 (ice-9 ftw)
18284 (srfi srfi-26)))
18285 (snippet 18185 (snippet
18286 #~(begin 18186 #~(begin (delete-all-but "." "tools")))))
18287 (define (delete-all-but directory . preserve)
18288 (with-directory-excursion directory
18289 (let* ((pred (negate (cut member <>
18290 (cons* "." ".." preserve))))
18291 (items (scandir "." pred)))
18292 (for-each (cut delete-file-recursively <>) items))))
18293 (delete-all-but "." "tools")))))
18294 (build-system go-build-system) 18187 (build-system go-build-system)
18295 (arguments 18188 (arguments
18296 (list 18189 (list
@@ -22428,18 +22321,9 @@ scheduling and more.")
22428 (file-name (git-file-name name version)) 22321 (file-name (git-file-name name version))
22429 (sha256 22322 (sha256
22430 (base32 "0an8ypp8v9gfxbbb71mpimb1g9labl4v7lgazcphysn6c5smgmiw")) 22323 (base32 "0an8ypp8v9gfxbbb71mpimb1g9labl4v7lgazcphysn6c5smgmiw"))
22431 (modules '((guix build utils) 22324 (modules '((guix build utils)))
22432 (ice-9 ftw)
22433 (srfi srfi-26)))
22434 (snippet 22325 (snippet
22435 #~(begin 22326 #~(begin (delete-all-but "." "atomicwriter")))))
22436 (define (delete-all-but directory . preserve)
22437 (with-directory-excursion directory
22438 (let* ((pred (negate (cut member <>
22439 (cons* "." ".." preserve))))
22440 (items (scandir "." pred)))
22441 (for-each (cut delete-file-recursively <>) items))))
22442 (delete-all-but "." "atomicwriter")))))
22443 (build-system go-build-system) 22327 (build-system go-build-system)
22444 (arguments 22328 (arguments
22445 (list 22329 (list
@@ -22493,18 +22377,8 @@ https://github.com/syndtr/gocapability.")
22493 (file-name (git-file-name name version)) 22377 (file-name (git-file-name name version))
22494 (sha256 22378 (sha256
22495 (base32 "0r3dcyw3snklr40z09rzyx9pva8lic1h5wqrv222l0b4dm08d3ny")) 22379 (base32 "0r3dcyw3snklr40z09rzyx9pva8lic1h5wqrv222l0b4dm08d3ny"))
22496 (modules '((guix build utils) 22380 (modules '((guix build utils)))
22497 (ice-9 ftw) 22381 (snippet #~(delete-all-but "." "devices"))))
22498 (srfi srfi-26)))
22499 (snippet
22500 #~(begin
22501 (define (delete-all-but directory . preserve)
22502 (with-directory-excursion directory
22503 (let* ((pred (negate (cut member <>
22504 (cons* "." ".." preserve))))
22505 (items (scandir "." pred)))
22506 (for-each (cut delete-file-recursively <>) items))))
22507 (delete-all-but "." "devices")))))
22508 (build-system go-build-system) 22382 (build-system go-build-system)
22509 (arguments 22383 (arguments
22510 (list 22384 (list
@@ -22536,18 +22410,9 @@ that need to configure runc's device list based on existing devices.")
22536 (file-name (git-file-name name version)) 22410 (file-name (git-file-name name version))
22537 (sha256 22411 (sha256
22538 (base32 "1nh1disclgydvq7k10awzks6k8kw9cjj3q19f83ksi4b76p5l475")) 22412 (base32 "1nh1disclgydvq7k10awzks6k8kw9cjj3q19f83ksi4b76p5l475"))
22539 (modules '((guix build utils) 22413 (modules '((guix build utils)))
22540 (ice-9 ftw)
22541 (srfi srfi-26)))
22542 (snippet 22414 (snippet
22543 #~(begin 22415 #~(begin (delete-all-but "." "mount")))))
22544 (define (delete-all-but directory . preserve)
22545 (with-directory-excursion directory
22546 (let* ((pred (negate (cut member <>
22547 (cons* "." ".." preserve))))
22548 (items (scandir "." pred)))
22549 (for-each (cut delete-file-recursively <>) items))))
22550 (delete-all-but "." "mount")))))
22551 (build-system go-build-system) 22416 (build-system go-build-system)
22552 (arguments 22417 (arguments
22553 (list 22418 (list
@@ -34745,21 +34610,8 @@ when they'd prefer a more familiar, loosely typed API.")
34745 (file-name (git-file-name name version)) 34610 (file-name (git-file-name name version))
34746 (sha256 34611 (sha256
34747 (base32 "05i15278swdmpif3p6g18sy0sn7rnfdl3m2rj5p30cnyb0j29vig")) 34612 (base32 "05i15278swdmpif3p6g18sy0sn7rnfdl3m2rj5p30cnyb0j29vig"))
34748 (modules '((guix build utils) 34613 (modules '((guix build utils)))
34749 (ice-9 ftw) 34614 (snippet #~(delete-all-but "." "exp"))))
34750 (srfi srfi-26)))
34751 (snippet
34752 #~(begin
34753 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
34754 ;; Consider implementing it as a reusable procedure in
34755 ;; guix/build/utils or guix/build-system/go.
34756 (define (delete-all-but directory . preserve)
34757 (with-directory-excursion directory
34758 (let* ((pred (negate (cut member <>
34759 (cons* "." ".." preserve))))
34760 (items (scandir "." pred)))
34761 (for-each (cut delete-file-recursively <>) items))))
34762 (delete-all-but "." "exp")))))
34763 (build-system go-build-system) 34615 (build-system go-build-system)
34764 (arguments 34616 (arguments
34765 (list 34617 (list
@@ -36225,18 +36077,9 @@ code.")
36225 (name "go-modernc-org-ccgo-v4") 36077 (name "go-modernc-org-ccgo-v4")
36226 (source (origin 36078 (source (origin
36227 (inherit (package-source go-modernc-org-ccgo-v3)) 36079 (inherit (package-source go-modernc-org-ccgo-v3))
36228 (modules '((guix build utils) 36080 (modules '((guix build utils)))
36229 (ice-9 ftw)
36230 (srfi srfi-26)))
36231 (snippet 36081 (snippet
36232 #~(begin 36082 #~(begin (delete-all-but "." "v4")))))
36233 (define (delete-all-but directory . preserve)
36234 (with-directory-excursion directory
36235 (let* ((pred (negate (cut member <>
36236 (cons* "." ".." preserve))))
36237 (items (scandir "." pred)))
36238 (for-each (cut delete-file-recursively <>) items))))
36239 (delete-all-but "." "v4")))))
36240 (arguments 36083 (arguments
36241 (substitute-keyword-arguments 36084 (substitute-keyword-arguments
36242 (package-arguments go-modernc-org-ccgo-v3) 36085 (package-arguments go-modernc-org-ccgo-v3)
@@ -37192,20 +37035,9 @@ unmarshaling functions based on @code{encoding/json} @code{Unmarshal()}.")
37192 (file-name (git-file-name name version)) 37035 (file-name (git-file-name name version))
37193 (sha256 37036 (sha256
37194 (base32 "12n8ij4gisah5mvxcgq263iic61gjpxdj3ml03826zckzn7wlv46")) 37037 (base32 "12n8ij4gisah5mvxcgq263iic61gjpxdj3ml03826zckzn7wlv46"))
37195 (modules '((guix build utils) 37038 (modules '((guix build utils)))
37196 (ice-9 ftw)
37197 (srfi srfi-26)))
37198 (snippet 37039 (snippet
37199 #~(begin 37040 #~(begin
37200 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
37201 ;; Consider implementing it as a reusable procedure in
37202 ;; guix/build/utils or guix/build-system/go.
37203 (define (delete-all-but directory . preserve)
37204 (with-directory-excursion directory
37205 (let* ((pred (negate (cut member <>
37206 (cons* "." ".." preserve))))
37207 (items (scandir "." pred)))
37208 (for-each (cut delete-file-recursively <>) items))))
37209 (delete-all-but "." "cmd") 37041 (delete-all-but "." "cmd")
37210 (delete-all-but "cmd" "config"))))) 37042 (delete-all-but "cmd" "config")))))
37211 (build-system go-build-system) 37043 (build-system go-build-system)
diff --git a/gnu/packages/image-processing.scm b/gnu/packages/image-processing.scm
index c354c32bff9..f8b924ad7a3 100644
--- a/gnu/packages/image-processing.scm
+++ b/gnu/packages/image-processing.scm
@@ -600,24 +600,16 @@ different data arrays similar to those available in the numdiff software.")
600 (file-name (git-file-name name version)) 600 (file-name (git-file-name name version))
601 (snippet 601 (snippet
602 #~(begin 602 #~(begin
603 (use-modules (guix build utils) 603 (use-modules (guix build utils))
604 (ice-9 ftw)
605 (srfi srfi-26))
606 ;; Delete any bundled .jar files. 604 ;; Delete any bundled .jar files.
607 (for-each delete-file (find-files "." "\\.jar$")) 605 (for-each delete-file (find-files "." "\\.jar$"))
608 (define (delete-all-but directory . preserve)
609 (with-directory-excursion directory
610 (let* ((pred (negate (cut member <>
611 (cons* "." ".." preserve))))
612 (items (scandir "." pred)))
613 (for-each (cut delete-file-recursively <>) items))))
614 (delete-all-but "3rdparty" 606 (delete-all-but "3rdparty"
615 "fastcv" ;TODO: Unbundle these 607 "fastcv" ;TODO: Unbundle these
616 "libspng" 608 "libspng"
617 "libtim-vx" 609 "libtim-vx"
618 "orbbecsdk" 610 "orbbecsdk"
619 "quirc" 611 "quirc"
620 "zlib-ng"))) 612 "zlib-ng")))
621 (sha256 613 (sha256
622 (base32 614 (base32
623 "15w4fqjqv5k1yw70jbjsnlgiky39mqpy05rvmm2fbyjrif4kbgkl")))) 615 "15w4fqjqv5k1yw70jbjsnlgiky39mqpy05rvmm2fbyjrif4kbgkl"))))
diff --git a/gnu/packages/ipfs.scm b/gnu/packages/ipfs.scm
index def344cfff2..68364ed2bef 100644
--- a/gnu/packages/ipfs.scm
+++ b/gnu/packages/ipfs.scm
@@ -1392,21 +1392,9 @@ code prior to it getting merged into @code{go-cid}.")
1392 (file-name (git-file-name name version)) 1392 (file-name (git-file-name name version))
1393 (sha256 1393 (sha256
1394 (base32 "00lwizzdfdx6kynxddal3all6q9dhwqanpkw0d0vxlwik4nkvxa5")) 1394 (base32 "00lwizzdfdx6kynxddal3all6q9dhwqanpkw0d0vxlwik4nkvxa5"))
1395 (modules '((guix build utils) 1395 (modules '((guix build utils)))
1396 (ice-9 ftw)
1397 (srfi srfi-26)))
1398 (snippet 1396 (snippet
1399 #~(begin 1397 #~(begin (delete-all-but "." "ipfs")))))
1400 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
1401 ;; Consider to implement it as re-usable procedure in
1402 ;; guix/build/utils or guix/build-system/go.
1403 (define (delete-all-but directory . preserve)
1404 (with-directory-excursion directory
1405 (let* ((pred (negate (cut member <>
1406 (cons* "." ".." preserve))))
1407 (items (scandir "." pred)))
1408 (for-each (cut delete-file-recursively <>) items))))
1409 (delete-all-but "." "ipfs")))))
1410 (build-system go-build-system) 1398 (build-system go-build-system)
1411 (arguments 1399 (arguments
1412 (list 1400 (list
diff --git a/gnu/packages/kubernetes.scm b/gnu/packages/kubernetes.scm
index 59197f5915a..2ce08199fb3 100644
--- a/gnu/packages/kubernetes.scm
+++ b/gnu/packages/kubernetes.scm
@@ -92,16 +92,8 @@ tree for exported @acronym{CustomResourceDefinition, CRD} types.")
92 (file-name (git-file-name name version)) 92 (file-name (git-file-name name version))
93 (sha256 93 (sha256
94 (base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb")) 94 (base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb"))
95 (modules '((guix build utils) 95 (modules '((guix build utils)))
96 (ice-9 ftw)
97 (srfi srfi-26)))
98 (snippet #~(begin 96 (snippet #~(begin
99 (define (delete-all-but directory . preserve)
100 (with-directory-excursion directory
101 (let* ((pred (negate (cut member <>
102 (cons* "." ".." preserve))))
103 (items (scandir "." pred)))
104 (for-each (cut delete-file-recursively <>) items))))
105 ;; Replace symlinks to tests with file contents 97 ;; Replace symlinks to tests with file contents
106 (for-each 98 (for-each
107 (lambda (f) 99 (lambda (f)
@@ -182,16 +174,8 @@ tree for exported @acronym{CustomResourceDefinition, CRD} types.")
182 (file-name (git-file-name name version)) 174 (file-name (git-file-name name version))
183 (sha256 175 (sha256
184 (base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb")) 176 (base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb"))
185 (modules '((guix build utils) 177 (modules '((guix build utils)))
186 (ice-9 ftw)
187 (srfi srfi-26)))
188 (snippet #~(begin 178 (snippet #~(begin
189 (define (delete-all-but directory . preserve)
190 (with-directory-excursion directory
191 (let* ((pred (negate (cut member <>
192 (cons* "." ".." preserve))))
193 (items (scandir "." pred)))
194 (for-each (cut delete-file-recursively <>) items))))
195 (delete-all-but "." "server") 179 (delete-all-but "." "server")
196 (rename-file "server" "server.tmp") 180 (rename-file "server" "server.tmp")
197 (mkdir-p "server/v3") 181 (mkdir-p "server/v3")
@@ -265,16 +249,8 @@ system.")
265 (file-name (git-file-name name version)) 249 (file-name (git-file-name name version))
266 (sha256 250 (sha256
267 (base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb")) 251 (base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb"))
268 (modules '((guix build utils) 252 (modules '((guix build utils)))
269 (ice-9 ftw)
270 (srfi srfi-26)))
271 (snippet #~(begin 253 (snippet #~(begin
272 (define (delete-all-but directory . preserve)
273 (with-directory-excursion directory
274 (let* ((pred (negate (cut member <>
275 (cons* "." ".." preserve))))
276 (items (scandir "." pred)))
277 (for-each (cut delete-file-recursively <>) items))))
278 (delete-all-but "." "pkg") 254 (delete-all-but "." "pkg")
279 (rename-file "pkg" "pkg.tmp") 255 (rename-file "pkg" "pkg.tmp")
280 (mkdir-p "pkg/v3") 256 (mkdir-p "pkg/v3")
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 02e6551b15a..f1d797530da 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -865,20 +865,10 @@ operating systems.")
865 (file-name (git-file-name name version)) 865 (file-name (git-file-name name version))
866 (sha256 866 (sha256
867 (base32 "1sg6ifabci7xyp3zds1w906vx6jsmyjlfr6bqld7m7hj07by9ndd")) 867 (base32 "1sg6ifabci7xyp3zds1w906vx6jsmyjlfr6bqld7m7hj07by9ndd"))
868 (modules '((guix build utils) 868 (modules '((guix build utils)))
869 (ice-9 ftw) 869 (snippet #~(delete-all-but "autosetup"
870 (srfi srfi-26))) 870 "mutt-gettext.tcl"
871 (snippet 871 "mutt-iconv.tcl"))))
872 #~(begin
873 (define (delete-all-but directory . preserve)
874 (with-directory-excursion directory
875 (let* ((pred (negate (cut member <>
876 (cons* "." ".." preserve))))
877 (items (scandir "." pred)))
878 (for-each (cut delete-file-recursively <>) items))))
879 (delete-all-but "autosetup"
880 "mutt-gettext.tcl"
881 "mutt-iconv.tcl")))))
882 (build-system gnu-build-system) 872 (build-system gnu-build-system)
883 (inputs 873 (inputs
884 (list cyrus-sasl 874 (list cyrus-sasl
diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm
index 2bf77a8d7ce..a0b9de1f1b8 100644
--- a/gnu/packages/mpi.scm
+++ b/gnu/packages/mpi.scm
@@ -336,18 +336,9 @@ software vendors, application developers and computer science researchers.")
336 (uri (string-append "https://www.open-mpi.org/software/ompi/v" 336 (uri (string-append "https://www.open-mpi.org/software/ompi/v"
337 (version-major+minor version) 337 (version-major+minor version)
338 "/downloads/openmpi-" version ".tar.bz2")) 338 "/downloads/openmpi-" version ".tar.bz2"))
339 (modules '((guix build utils) 339 (modules '((guix build utils)))
340 (ice-9 ftw)
341 (srfi srfi-26)))
342 (snippet 340 (snippet
343 '(begin 341 '(begin
344 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
345 (define (delete-all-but directory . preserve)
346 (with-directory-excursion directory
347 (let* ((pred (negate (cut member <>
348 (cons* "." ".." preserve))))
349 (items (scandir "." pred)))
350 (for-each (cut delete-file-recursively <>) items))))
351 ;; Delete as many bundled libraries as permitted by the build 342 ;; Delete as many bundled libraries as permitted by the build
352 ;; system. 343 ;; system.
353 (delete-all-but "3rd-party" "treematch" "Makefile.in" "Makefile.am") 344 (delete-all-but "3rd-party" "treematch" "Makefile.in" "Makefile.am")
diff --git a/gnu/packages/protobuf.scm b/gnu/packages/protobuf.scm
index ddc1e18a336..5020dea14df 100644
--- a/gnu/packages/protobuf.scm
+++ b/gnu/packages/protobuf.scm
@@ -107,24 +107,9 @@ data in motion, or as a file format for data at rest.")
107 (uri (git-reference 107 (uri (git-reference
108 (url "https://github.com/protocolbuffers/protobuf/") 108 (url "https://github.com/protocolbuffers/protobuf/")
109 (commit (string-append "v" version)))) 109 (commit (string-append "v" version))))
110 (modules '((guix build utils) 110 (modules '((guix build utils)))
111 (ice-9 ftw) 111 ;; "utf8_range" development now takes place in main protobuf repository.
112 (srfi srfi-26))) 112 (snippet #~(delete-all-but "third_party" "utf8_range"))
113 (snippet
114 #~(begin
115 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
116 (define (delete-all-but directory . preserve)
117 (define (directory? x)
118 (and=> (stat x #f)
119 (compose (cut eq? 'directory <>) stat:type)))
120 (with-directory-excursion directory
121 (let* ((pred
122 (negate (cut member <> (append '("." "..") preserve))))
123 (items (scandir "." pred)))
124 (for-each delete-file-recursively items))))
125 ;; "utf8_range" development now takes place in main protobuf
126 ;; repository.
127 (delete-all-but "third_party" "utf8_range")))
128 (file-name (git-file-name name version)) 113 (file-name (git-file-name name version))
129 (sha256 114 (sha256
130 (base32 "1rdxm75bqwjj4qd3hz4vlydra6bw5dq391kwln2q0pjfx9gbrjhk")))) 115 (base32 "1rdxm75bqwjj4qd3hz4vlydra6bw5dq391kwln2q0pjfx9gbrjhk"))))
diff --git a/gnu/packages/python-science.scm b/gnu/packages/python-science.scm
index 6cc1af1e4b6..1ff17aedf28 100644
--- a/gnu/packages/python-science.scm
+++ b/gnu/packages/python-science.scm
@@ -6420,26 +6420,11 @@ readable.")
6420 (base32 "1m6h6m0vm8vdx2nk26nvlbyfvlj0g9ph8cdh38258gn18fd2db0l")) 6420 (base32 "1m6h6m0vm8vdx2nk26nvlbyfvlj0g9ph8cdh38258gn18fd2db0l"))
6421 (patches 6421 (patches
6422 (search-patches "python-vaex-core-fix-tsl-use.patch")) 6422 (search-patches "python-vaex-core-fix-tsl-use.patch"))
6423 (modules '((guix build utils) 6423 (modules '((guix build utils)))
6424 (ice-9 ftw))) 6424 (snippet #~(begin
6425 (snippet 6425 (delete-all-but "." "packages")
6426 #~(begin 6426 (delete-all-but "packages" "vaex-core")
6427 ;; Delete everything except for vaex-core itself: 6427 (delete-file-recursively "packages/vaex-core/vendor")))))
6428 (define (delete-except exception)
6429 (lambda (file)
6430 (unless (member file `("." ".." ,exception))
6431 (delete-file-recursively file))))
6432 (for-each (delete-except "packages") (scandir "."))
6433 (with-directory-excursion "packages"
6434 (for-each (delete-except "vaex-core") (scandir ".")))
6435 (for-each (lambda (file)
6436 (unless (member file '("." ".."))
6437 (rename-file
6438 (string-append "packages/vaex-core/" file)
6439 file)))
6440 (scandir "packages/vaex-core"))
6441 (delete-file-recursively "packages")
6442 (delete-file-recursively "vendor")))))
6443 (build-system pyproject-build-system) 6428 (build-system pyproject-build-system)
6444 (arguments 6429 (arguments
6445 (list 6430 (list
@@ -6448,7 +6433,10 @@ readable.")
6448 #:tests? #f 6433 #:tests? #f
6449 #:phases 6434 #:phases
6450 #~(modify-phases %standard-phases 6435 #~(modify-phases %standard-phases
6451 (add-after 'unpack 'relax-requirements 6436 (add-after 'unpack 'chdir
6437 (lambda _
6438 (chdir "packages/vaex-core")))
6439 (add-after 'chdir 'relax-requirements
6452 (lambda _ 6440 (lambda _
6453 (substitute* "setup.py" 6441 (substitute* "setup.py"
6454 ;; "dask!=2022.4.0,<2024.9"; there is a note "fingerprinting 6442 ;; "dask!=2022.4.0,<2024.9"; there is a note "fingerprinting
diff --git a/gnu/packages/specifications.scm b/gnu/packages/specifications.scm
index fd2800ff256..57a0cd6e4fe 100644
--- a/gnu/packages/specifications.scm
+++ b/gnu/packages/specifications.scm
@@ -46,24 +46,12 @@
46 (file-name (git-file-name name version)) 46 (file-name (git-file-name name version))
47 (sha256 47 (sha256
48 (base32 "0wl2mxyv974q7si33irl6jvfd432ymnbrsxyrz9xvczlvn87f67b")) 48 (base32 "0wl2mxyv974q7si33irl6jvfd432ymnbrsxyrz9xvczlvn87f67b"))
49 (modules '((guix build utils) 49 (modules '((guix build utils)))
50 (ice-9 ftw)
51 (srfi srfi-26)))
52 (snippet 50 (snippet
53 ;; XXX: Keep just some portion with valulable data and no license 51 ;; XXX: Keep just some portion with valulable data and no license
54 ;; issues. 52 ;; issues.
55 #~(begin 53 #~(delete-all-but "."
56 (define (delete-all-but directory . preserve) 54 "allsky" "coordinates" "galactic_center" "l1448"))))
57 (with-directory-excursion directory
58 (let* ((pred (negate (cut member <>
59 (cons* "." ".." preserve))))
60 (items (scandir "." pred)))
61 (for-each (cut delete-file-recursively <>) items))))
62 (delete-all-but "."
63 "allsky"
64 "coordinates"
65 "galactic_center"
66 "l1448")))))
67 (build-system copy-build-system) 55 (build-system copy-build-system)
68 (arguments 56 (arguments
69 (list 57 (list
diff --git a/gnu/packages/taler.scm b/gnu/packages/taler.scm
index 9d3289cdfb6..b4c15e4c232 100644
--- a/gnu/packages/taler.scm
+++ b/gnu/packages/taler.scm
@@ -42,18 +42,9 @@
42 (sha256 42 (sha256
43 (base32 43 (base32
44 "1lhcvqlazsqbj391d7dlp6rzblld4jij8z2vym2cbgz4mzb2vqj1")) 44 "1lhcvqlazsqbj391d7dlp6rzblld4jij8z2vym2cbgz4mzb2vqj1"))
45 (modules '((guix build utils) 45 (modules '((guix build utils)))
46 (ice-9 ftw)
47 (srfi srfi-26)))
48 (snippet 46 (snippet
49 #~(begin 47 #~(begin
50 ;; XXX: 'delete-all-but' is copied from the turbovnc package.
51 (define (delete-all-but directory . preserve)
52 (with-directory-excursion directory
53 (let* ((pred (negate (cut member <>
54 (cons* "." ".." preserve))))
55 (items (scandir "." pred)))
56 (for-each (cut delete-file-recursively <>) items))))
57 ;; Delete 3rd party bundled Sphinx extensions. 48 ;; Delete 3rd party bundled Sphinx extensions.
58 (delete-all-but "_exts" 49 (delete-all-but "_exts"
59 ;; These are custom extensions. 50 ;; These are custom extensions.
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 5fdbf1dfce2..68d508de6bb 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -3731,17 +3731,9 @@ modification time.")
3731 (check-in version))) 3731 (check-in version)))
3732 (sha256 3732 (sha256
3733 (base32 "16zrha8vb4dwfmyq86iaz2xz4k91dh018bk94xkxgqbyrr33nm7y")) 3733 (base32 "16zrha8vb4dwfmyq86iaz2xz4k91dh018bk94xkxgqbyrr33nm7y"))
3734 (modules '((guix build utils) 3734 (modules '((guix build utils)))
3735 (ice-9 ftw)
3736 (srfi srfi-26)))
3737 (snippet 3735 (snippet
3738 #~(begin 3736 #~(begin
3739 (define (delete-all-but directory . preserve)
3740 (with-directory-excursion directory
3741 (let* ((pred (negate (cut member <>
3742 (cons* "." ".." preserve))))
3743 (items (scandir "." pred)))
3744 (for-each (cut delete-file-recursively <>) items))))
3745 (delete-all-but "autosetup" "proj.tcl" "wh-common.tcl") 3737 (delete-all-but "autosetup" "proj.tcl" "wh-common.tcl")
3746 (delete-file-recursively "extsrc"))))) 3738 (delete-file-recursively "extsrc")))))
3747 (build-system gnu-build-system) 3739 (build-system gnu-build-system)
diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm
index 68f65e372fe..9317fa08ccb 100644
--- a/gnu/packages/vnc.scm
+++ b/gnu/packages/vnc.scm
@@ -183,9 +183,7 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.")
183 (uri (git-reference 183 (uri (git-reference
184 (url "https://github.com/TurboVNC/turbovnc") 184 (url "https://github.com/TurboVNC/turbovnc")
185 (commit version))) 185 (commit version)))
186 (modules '((guix build utils) 186 (modules '((guix build utils)))
187 (ice-9 ftw)
188 (srfi srfi-26)))
189 (snippet 187 (snippet
190 #~(begin 188 #~(begin
191 ;; There are a few bundled Java libraries, such as jsch and jzlib, 189 ;; There are a few bundled Java libraries, such as jsch and jzlib,
@@ -193,12 +191,6 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.")
193 ;; bundled under java/org. These are used by the 'vncviewer' 191 ;; bundled under java/org. These are used by the 'vncviewer'
194 ;; program. The jsch copy is modified and integrates changes from 192 ;; program. The jsch copy is modified and integrates changes from
195 ;; https://github.com/mwiede/jsch, so cannot easily be un-bundled. 193 ;; https://github.com/mwiede/jsch, so cannot easily be un-bundled.
196 (define (delete-all-but directory . preserve)
197 (with-directory-excursion directory
198 (let* ((pred (negate (cut member <>
199 (cons* "." ".." preserve))))
200 (items (scandir "." pred)))
201 (for-each (cut delete-file-recursively <>) items))))
202 194
203 ;; d3des, rfb (headers) and turbojpeg-jni are small and not 195 ;; d3des, rfb (headers) and turbojpeg-jni are small and not
204 ;; packaged in Guix, so preserve them. 196 ;; packaged in Guix, so preserve them.
generated by cgit v1.2.3 (git 2.25.1) at 2026-09-03 05:09:53 +0000