diff options
Diffstat (limited to 'gnu/packages/kubernetes.scm')
| -rw-r--r-- | gnu/packages/kubernetes.scm | 30 |
1 files changed, 3 insertions, 27 deletions
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") |