1 files changed, 29 insertions, 197 deletions
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.")
         (file-name (git-file-name name version))
         (sha256
          (base32 "1np11if704xzyhsx9mqhz7djx23g6wnz62r1v9ra6xaz91yfic0n"))
-         (modules '((guix build utils)
+         (modules '((guix build utils)))
-                    (ice-9 ftw)
+         (snippet #~(delete-all-but "." "generate"))))
-                    (srfi srfi-26)))
-         (snippet
-          #~(begin
-              ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-              (define (delete-all-but directory . preserve)
-                (define (directory? x)
-                  (and=> (stat x #f)
-                         (compose (cut eq? 'directory <>) stat:type)))
-                (with-directory-excursion directory
-                  (let* ((pred
-                          (negate (cut member <> (append '("." "..") preserve))))
-                         (items (scandir "." pred)))
-                    (for-each (lambda (item)
-                                (if (directory? item)
-                                    (delete-file-recursively item)
-                                    (delete-file item)))
-                              items))))
-              (delete-all-but "." "generate")))))
      (build-system go-build-system)
      (arguments
       (list
@@ -5779,18 +5761,8 @@ and multi-selects with a focus on user experience and aesthetics.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "1nr09574rdrgnsj7c2z11233zljl3gcqax0jb3na6v4ixl7gnhq2"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
+       (snippet #~(delete-all-but "." "ansi"))))
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "ansi")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -5827,14 +5799,7 @@ ECMA-48} specs.")
                  (ice-9 ftw)
                  (srfi srfi-26)))
       (snippet
-        #~(begin
+        #~(begin (delete-all-but "." "cellbuf")))))
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "cellbuf")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -5892,18 +5857,8 @@ ECMA-48} specs.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "088786ak8jsgvssbb5y16z066vfq9f6078sjc7iv766knfr2i0x2"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
+       (snippet #~(delete-all-but "." "errors"))))
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "errors")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -6055,18 +6010,9 @@ package provides an API for comparing Golden files.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "1shw55110fnn4xz80wmgr18czmiil6z1j064m90iw8c7j9llfzn5"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
       (snippet
-        #~(begin
+        #~(begin (delete-all-but "." "term")))))
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "term")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -6154,21 +6100,8 @@ package provides an API for comparing Golden files.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0blpb8vpl7sc6pb43h0730wdcwrkvnhly6qhik6wljrzn2nqz5g2"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
+       (snippet #~(delete-all-but "." "xpty"))))
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "xpty")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -7413,21 +7346,8 @@ packages.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0afaljkkd388f6igr3f2vjnd14yr8h20fcfzglw8j5q1q7a1cvik"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
+       (snippet #~(delete-all-but "." "pkg"))))
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "pkg")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -13235,17 +13155,9 @@ etc.).")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
       (snippet
        #~(begin
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
            (delete-all-but "." "jsonutils")
            ;; Submodules with their own go.mod files and packaged separately:
            (delete-file-recursively "jsonutils/fixtures_test")
@@ -13294,18 +13206,8 @@ with the order of keys maintained
       (file-name (git-file-name name version))
       (sha256
        (base32 "0rg5q7xif4gmhc99kkgvnz03d0d0z2vanyv8xa4myn6ykvacw458"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
+       (snippet #~(delete-all-but "." "yamlutils"))))
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "yamlutils")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -18279,18 +18181,9 @@ Twisted's manhole library} .")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0xj782ghf0iv8r2xxmg2vrh72b02h216y4yfyi60y9z0691lrsip"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
       (snippet
-        #~(begin
+        #~(begin (delete-all-but "." "tools")))))
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "tools")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -22428,18 +22321,9 @@ scheduling and more.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0an8ypp8v9gfxbbb71mpimb1g9labl4v7lgazcphysn6c5smgmiw"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
       (snippet
-        #~(begin
+        #~(begin (delete-all-but "." "atomicwriter")))))
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "atomicwriter")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -22493,18 +22377,8 @@ https://github.com/syndtr/gocapability.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0r3dcyw3snklr40z09rzyx9pva8lic1h5wqrv222l0b4dm08d3ny"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
+       (snippet #~(delete-all-but "." "devices"))))
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "devices")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -22536,18 +22410,9 @@ that need to configure runc's device list based on existing devices.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "1nh1disclgydvq7k10awzks6k8kw9cjj3q19f83ksi4b76p5l475"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
       (snippet
-        #~(begin
+        #~(begin (delete-all-but "." "mount")))))
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "mount")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -34745,21 +34610,8 @@ when they'd prefer a more familiar, loosely typed API.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "05i15278swdmpif3p6g18sy0sn7rnfdl3m2rj5p30cnyb0j29vig"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
+       (snippet #~(delete-all-but "." "exp"))))
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
-            (delete-all-but "." "exp")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -36225,18 +36077,9 @@ code.")
    (name "go-modernc-org-ccgo-v4")
    (source (origin
              (inherit (package-source go-modernc-org-ccgo-v3))
-              (modules '((guix build utils)
+              (modules '((guix build utils)))
-                         (ice-9 ftw)
-                         (srfi srfi-26)))
              (snippet
-               #~(begin
+               #~(begin (delete-all-but "." "v4")))))
-                   (define (delete-all-but directory . preserve)
-                     (with-directory-excursion directory
-                       (let* ((pred (negate (cut member <>
-                                                 (cons* "." ".." preserve))))
-                              (items (scandir "." pred)))
-                         (for-each (cut delete-file-recursively <>) items))))
-                   (delete-all-but "." "v4")))))
    (arguments
     (substitute-keyword-arguments
         (package-arguments go-modernc-org-ccgo-v3)
@@ -37192,20 +37035,9 @@ unmarshaling functions based on @code{encoding/json} @code{Unmarshal()}.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "12n8ij4gisah5mvxcgq263iic61gjpxdj3ml03826zckzn7wlv46"))
-       (modules '((guix build utils)
+       (modules '((guix build utils)))
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
       (snippet
        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (define (delete-all-but directory . preserve)
-              (with-directory-excursion directory
-                (let* ((pred (negate (cut member <>
-                                          (cons* "." ".." preserve))))
-                       (items (scandir "." pred)))
-                  (for-each (cut delete-file-recursively <>) items))))
            (delete-all-but "." "cmd")
            (delete-all-but "cmd" "config")))))
    (build-system go-build-system)

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)