ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: yggdrasil: Simplify build phases.

Browse source 
* gnu/packages/networking.scm (yggdrasil)[arguments]: Rewrite custom
'build phase reusing go-build-system 'build phase. Remove custom
'install phase.
This commit is contained in:
Efraim Flashner 2021-12-02 14:28:06 +02:00
parent d19e646c83
commit 923a121751
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 14 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/networking.scm
View file

@ -14,7 +14,7 @@
;;; Copyright © 2016, 2017 Pjotr Prins <pjotr.guix@thebird.nl> ;;; Copyright © 2016, 2017 Pjotr Prins <pjotr.guix@thebird.nl>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017, 2020, 2021 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017, 2020, 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017, 2019 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2017, 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
@ -4086,33 +4086,18 @@ (define-public yggdrasil
;; TODO: figure out how tests are run ;; TODO: figure out how tests are run
#:tests? #f #:tests? #f
#:install-source? #f #:install-source? #f
#:phases (modify-phases %standard-phases #:phases
(modify-phases %standard-phases
(replace 'build (replace 'build
(lambda _ (lambda* (#:key import-path build-flags #:allow-other-keys)
(for-each (for-each
(lambda (c) (lambda (directory)
(invoke ((assoc-ref %standard-phases 'build)
"go" "build" "-v" "-ldflags=-s -w" #:build-flags build-flags
(string-append #:import-path directory))
"github.com/yggdrasil-network/yggdrasil-go/cmd/" c))) (list "github.com/yggdrasil-network/yggdrasil-go/cmd/yggdrasil"
(list "yggdrasil" "yggdrasilctl" "genkeys")) "github.com/yggdrasil-network/yggdrasil-go/cmd/yggdrasilctl"
#t)) "github.com/yggdrasil-network/yggdrasil-go/cmd/genkeys"))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin/"))
(doc (string-append out "/share/doc/yggdrasil/")))
(mkdir-p bin)
(for-each
(lambda (f)
(install-file f bin))
(list "yggdrasil" "yggdrasilctl" "genkeys"))
(mkdir-p doc)
(copy-recursively
(string-append
"src/github.com/yggdrasil-network/yggdrasil-go/"
"doc/yggdrasil-network.github.io")
doc))
#t))))) #t)))))
;; https://github.com/kardianos/minwinsvc is windows only ;; https://github.com/kardianos/minwinsvc is windows only
(propagated-inputs (propagated-inputs