diff options
| author | EuAndreh <eu@euandre.org> | 2026-05-13 17:28:12 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2026-05-13 17:28:12 -0300 |
| commit | 88db97c6f4eeb61cc6c8d8480a0973628cd546d2 (patch) | |
| tree | 1ba14d1f4cd8d94e71557dd8be3d66c24ca7e914 | |
| parent | src/org/euandre/packages.scm: Remove datomic package and transacctor config (diff) | |
| download | packages-88db97c6f4eeb61cc6c8d8480a0973628cd546d2.tar.gz packages-88db97c6f4eeb61cc6c8d8480a0973628cd546d2.tar.xz | |
| -rw-r--r-- | src/org/euandre/queue.scm | 63 |
1 files changed, 31 insertions, 32 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index a2870f3..8296d37 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -1706,38 +1706,37 @@ connections correctly."))) (define setenvfmt "Environment variable `~a' set to `~a'.~%") (define-public gol - (let ((pkg go-1.23)) - (package - (inherit pkg) - (name "gol") - (arguments - (substitute-keyword-arguments (package-arguments pkg) - ((#:tests? _) #f) - ((#:phases phases) - #~(modify-phases #$phases - (add-before 'build 'recover-binary-stdlib - (lambda _ - (let ((name "GODEBUG") - (value "installgoroot=all")) - (setenv name value) - (format #t #$setenvfmt name value)))) - ;; Not all of us work with fancy modern computers that have have - ;; too much memory and computing power for programmers to waste. - ;; Therefore, Go's default timeout of 10 minutes (!!) to run all - ;; tests isn't enough, so we disable it with an huge value and - ;; instead inherit the effective timeout from Guix itself. How not - ;; to like software that adheres so well to the Unix philosophy? - (add-before 'build 'tolerate-slow-tests - (lambda _ - (let ((name "GO_TEST_TIMEOUT_SCALE") - (value "10")) - (setenv name value) - (format #t #$setenvfmt name value)))) - (add-after 'install 'install-binaries - (lambda _ - (copy-recursively "pkg" - (string-append #$output "/lib/go/pkg")))) - (delete 'strip)))))))) + (package + (inherit go) + (name "gol") + (arguments + (substitute-keyword-arguments (package-arguments go) + ((#:tests? _) #f) + ((#:phases phases) + #~(modify-phases #$phases + (add-before 'build 'recover-binary-stdlib + (lambda _ + (let ((name "GODEBUG") + (value "installgoroot=all")) + (setenv name value) + (format #t #$setenvfmt name value)))) + ;; Not all of us work with fancy modern computers that have have + ;; too much memory and computing power for programmers to waste. + ;; Therefore, Go's default timeout of 10 minutes (!!) to run all + ;; tests isn't enough, so we disable it with an huge value and + ;; instead inherit the effective timeout from Guix itself. How not + ;; to like software that adheres so well to the Unix philosophy? + (add-before 'build 'tolerate-slow-tests + (lambda _ + (let ((name "GO_TEST_TIMEOUT_SCALE") + (value "10")) + (setenv name value) + (format #t #$setenvfmt name value)))) + (add-after 'install 'install-binaries + (lambda _ + (copy-recursively "pkg" + (string-append #$output "/lib/go/pkg")))) + (delete 'strip))))))) (define-public cgit-pre-configuration (cgit-configuration |