me
/
guix
Archived
1
0
Fork 0
Code

gnu: guile-gitlab: Improve the package style. 

* gnu/packages/guile-xyz.scm (guile-gitlab): Improve the package style.
  [inputs]: Remove input labels.

Change-Id: I449a02e1f9d700f678bb09961b896dea1627632e
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Artyom V. Poptsov 2023-12-02 17:18:12 +03:00 committed by Ludovic Courtès
parent 17835e2e0d
commit ad0c116508
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 28 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
gnu/packages/guile-xyz.scm
View File

@ -5437,49 +5437,41 @@ high-level API for network management that uses rtnetlink.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (string-append name "-" version)) (file-name (string-append name "-" version))
(sha256 (sha256
(base32 (base32 "0srkmchd4kmfa7q65r6fdzwklhgdlck1ll0s7smzs8ddjdgz2lwm"))))
"0srkmchd4kmfa7q65r6fdzwklhgdlck1ll0s7smzs8ddjdgz2lwm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings `(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings
#: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-after 'install 'wrap-program
(add-after 'install 'wrap-program (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-lib (assoc-ref inputs "guile2.2-lib"))
(guile-lib (assoc-ref inputs "guile-lib")) (json (assoc-ref inputs "guile2.2-json"))
(json (assoc-ref inputs "guile-json")) (tls (assoc-ref inputs "guile2.2-gnutls"))
(tls (assoc-ref inputs "guile-gnutls")) (version (target-guile-effective-version))
(version (target-guile-effective-version)) (scm (string-append "/share/guile/site/" version))
(scm (string-append "/share/guile/site/" (go (string-append "/lib/guile/" version
version)) "/site-ccache")))
(go (string-append "/lib/guile/" (wrap-program (string-append bin "/gitlab-cli")
version "/site-ccache"))) `("GUILE_LOAD_PATH" prefix
(wrap-program (string-append bin "/gitlab-cli") (,(string-append out scm) ,(string-append
`("GUILE_LOAD_PATH" prefix guile-lib scm)
(,(string-append out scm) ,(string-append json scm)
,(string-append guile-lib scm) ,(string-append tls scm)))
,(string-append json scm) `("GUILE_LOAD_COMPILED_PATH" prefix
,(string-append tls scm))) (,(string-append out go) ,(string-append guile-lib
`("GUILE_LOAD_COMPILED_PATH" prefix go)
(,(string-append out go) ,(string-append json go)
,(string-append guile-lib go) ,(string-append tls go))))))))))
,(string-append json go) (native-inputs (list autoconf automake pkg-config texinfo))
,(string-append tls go)))))))))) (inputs (list bash-minimal guile-2.2 guile2.2-json guile2.2-lib
(native-inputs guile2.2-gnutls))
(list autoconf automake pkg-config texinfo))
(inputs
`(("bash" ,bash-minimal)
("guile" ,guile-2.2)
("guile-json" ,guile2.2-json)
("guile-lib" ,guile2.2-lib)
("guile-gnutls" ,guile2.2-gnutls)))
(home-page "https://github.com/artyom-poptsov/guile-gitlab") (home-page "https://github.com/artyom-poptsov/guile-gitlab")
(synopsis "Guile interface to GitLab") (synopsis "Guile interface to GitLab")
(description (description