futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: guix-build-coordinator: Fix indentation.

Browse Source 
* gnu/packages/package-management.scm (guix-build-coordinator): Fix
indentation.
This commit is contained in:
Christopher Baines 2020-10-23 15:01:15 +01:00
parent b0d6098f03
commit df5e8de3d7
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 82 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

164
gnu/packages/package-management.scm
View File

@ -993,91 +993,91 @@ environments.")
(let ((commit "5f11c6009fba7ad635987a839d5769c4d9ca8f29") (let ((commit "5f11c6009fba7ad635987a839d5769c4d9ca8f29")
(revision "3")) (revision "3"))
(package (package
(name "guix-build-coordinator") (name "guix-build-coordinator")
(version (git-version "0" revision commit)) (version (git-version "0" revision commit))
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://git.cbaines.net/git/guix/build-coordinator") (url "https://git.cbaines.net/git/guix/build-coordinator")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"1r4y03blnh4vw3wgwh409wa4w3dbr20rzvfqiksm9g0ljic3r8zv")) "1r4y03blnh4vw3wgwh409wa4w3dbr20rzvfqiksm9g0ljic3r8zv"))
(file-name (string-append name "-" version "-checkout")))) (file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules (((guix build guile-build-system) `(#:modules (((guix build guile-build-system)
#:select (target-guile-effective-version)) #:select (target-guile-effective-version))
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:imported-modules ((guix build guile-build-system) #:imported-modules ((guix build guile-build-system)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'build 'set-GUILE_AUTO_COMPILE (add-before 'build 'set-GUILE_AUTO_COMPILE
(lambda _ (lambda _
;; To avoid warnings relating to 'guild'. ;; To avoid warnings relating to 'guild'.
(setenv "GUILE_AUTO_COMPILE" "0") (setenv "GUILE_AUTO_COMPILE" "0")
#t)) #t))
(add-after 'install 'wrap-executable (add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(guile (assoc-ref inputs "guile")) (guile (assoc-ref inputs "guile"))
(version (target-guile-effective-version)) (version (target-guile-effective-version))
(scm (string-append out "/share/guile/site/" version)) (scm (string-append out "/share/guile/site/" version))
(go (string-append out "/lib/guile/" version "/site-ccache"))) (go (string-append out "/lib/guile/" version "/site-ccache")))
(for-each (for-each
(lambda (file) (lambda (file)
(simple-format (current-error-port) "wrapping: ~A\n" file) (simple-format (current-error-port) "wrapping: ~A\n" file)
(wrap-program file (wrap-program file
`("PATH" ":" prefix `("PATH" ":" prefix
(,bin (,bin
;; Support building without sqitch as an input, as it ;; Support building without sqitch as an input, as it
;; can't be cross-compiled yet ;; can't be cross-compiled yet
,@(or (and=> (assoc-ref inputs "sqitch") ,@(or (and=> (assoc-ref inputs "sqitch")
list) list)
'()))) '())))
`("GUILE_LOAD_PATH" ":" prefix `("GUILE_LOAD_PATH" ":" prefix
(,scm ,(getenv "GUILE_LOAD_PATH"))) (,scm ,(getenv "GUILE_LOAD_PATH")))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix `("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))) (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))
(find-files bin))) (find-files bin)))
#t)) #t))
(delete 'strip)))) ; As the .go files aren't compatible (delete 'strip)))) ; As the .go files aren't compatible
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("autoconf" ,autoconf) ("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
("gnutls" ,gnutls) ("gnutls" ,gnutls)
;; Guile libraries are needed here for cross-compilation. ;; Guile libraries are needed here for cross-compilation.
("guile-json" ,guile-json-3) ("guile-json" ,guile-json-3)
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
("guix" ,guix) ("guix" ,guix)
("guile-prometheus" ,guile-prometheus) ("guile-prometheus" ,guile-prometheus)
("guile-fibers" ,guile-fibers) ("guile-fibers" ,guile-fibers)
("guile" ,@(assoc-ref (package-native-inputs guix) "guile")))) ("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))))
(inputs (inputs
`(("guile" ,@(assoc-ref (package-native-inputs guix) "guile")) `(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))
("sqlite" ,sqlite) ("sqlite" ,sqlite)
("sqitch" ,sqitch))) ("sqitch" ,sqitch)))
(propagated-inputs (propagated-inputs
`(("guile-fibers" ,guile-fibers) `(("guile-fibers" ,guile-fibers)
("guile-prometheus" ,guile-prometheus) ("guile-prometheus" ,guile-prometheus)
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
("guile-json" ,guile-json-3) ("guile-json" ,guile-json-3)
("guile-lzlib" ,guile-lzlib) ("guile-lzlib" ,guile-lzlib)
("guile-zlib" ,guile-zlib) ("guile-zlib" ,guile-zlib)
("guile-sqlite3" ,guile-sqlite3) ("guile-sqlite3" ,guile-sqlite3)
("guix" ,guix) ("guix" ,guix)
("gnutls" ,gnutls))) ("gnutls" ,gnutls)))
(home-page "https://git.cbaines.net/guix/build-coordinator/") (home-page "https://git.cbaines.net/guix/build-coordinator/")
(synopsis "Tool to help build derivations") (synopsis "Tool to help build derivations")
(description (description
"The Guix Build Coordinator helps with performing lots of builds across "The Guix Build Coordinator helps with performing lots of builds across
potentially many machines, and with doing something with the results and potentially many machines, and with doing something with the results and
outputs of those builds.") outputs of those builds.")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public guix-jupyter (define-public guix-jupyter
(package (package