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

gnu: trydiffoscope: Update Style.

Browse source 
* gnu/packages/diffoscope.scm (reprotest): Reindent.
[arguments]: Use G-expression. Remove trailing #t.

Change-Id: I5d77472405adcca35eca7bed9663f30f1f8ed18e
This commit is contained in:
Zheng Junjie 2024-09-09 21:08:15 +08:00
parent 2305b94c2e
commit cc2619a7bd
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0
1 changed files with 26 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
gnu/packages/diffoscope.scm
View file

@ -302,33 +302,33 @@ (define-public reprotest
(license (list license:gpl3+ license:gpl2+))))
(define-public trydiffoscope
(package
(name "trydiffoscope")
(version "67.0.8")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://salsa.debian.org/reproducible-builds/trydiffoscope.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0k698g4fws63rnav4pvfsf1hfds867xan59mmv5zw71r58lm6cxb"))))
(package
(name "trydiffoscope")
(version "67.0.8")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://salsa.debian.org/reproducible-builds/trydiffoscope.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0k698g4fws63rnav4pvfsf1hfds867xan59mmv5zw71r58lm6cxb"))))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((share (string-append (assoc-ref outputs "out") "/share/")))
(mkdir-p (string-append share "/man/man1/" ))
(invoke "rst2man.py"
"trydiffoscope.1.rst"
(string-append share "/man/man1/trydiffoscope.1"))
(mkdir-p (string-append share "/doc/" ,name "-" ,version))
(install-file "./README.rst"
(string-append share "/doc/" ,name "-" ,version)))
#t)))))
(list #:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-doc
(lambda _
(let* ((share (string-append #$output "/share/")))
(mkdir-p (string-append share "/man/man1/"))
(invoke "rst2man.py" "trydiffoscope.1.rst"
(string-append share "/man/man1/trydiffoscope.1"))
(mkdir-p (string-append
share "/doc/" #$name "-" #$version))
(install-file
"./README.rst"
(string-append share "/doc/" #$name "-" #$version))))))))
(propagated-inputs
(list python-requests))
(native-inputs