me/guix
Archived
1
0
Fork 0
Code Activity

gnu: git-annex: Install manpages.

Browse source 
* gnu/packages/haskell-apps.scm (git-annex)[source]: Download using
git-fetch.
[arguments]: Rewrite 'build-manpages and 'install-manpages to use the
Makefile.

Change-Id: I58e58382e6d8c57830aa5ddb40f02cf949089aa1
This commit is contained in:
Efraim Flashner 2023-11-19 09:41:05 +02:00
parent f7ef5a7f46
commit d87ce1a336
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 10 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/haskell-apps.scm
View file

@ -297,10 +297,14 @@ to @code{cabal repl}).")
(version "10.20230828") (version "10.20230828")
(source (source
(origin (origin
(method url-fetch) ;; hackage release doesn't include everything needed for extra bits.
(uri (hackage-uri "git-annex" version)) (method git-fetch)
(uri (git-reference
(url "https://git.joeyh.name/git/git-annex.git")
(commit version)))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 "0pb6834dwjs9kdki977rfkdyg58dfzy8wfwvswrz3n7h6bcnjd0b")))) (base32 "1k13mspwlpw6wwnf0cjlqcy3563kyprc6s5parrmsh07dysff7fi"))))
(build-system haskell-build-system) (build-system haskell-build-system)
(properties '((upstream-name . "git-annex"))) (properties '((upstream-name . "git-annex")))
(arguments (arguments
@ -348,16 +352,7 @@ to @code{cabal repl}).")
(invoke "runhaskell" "PreConf.hs"))) (invoke "runhaskell" "PreConf.hs")))
(add-after 'build 'build-manpages (add-after 'build 'build-manpages
(lambda _ (lambda _
;; The Setup.hs rewrite above removed custom code for building (invoke "make" "mans")))
;; the man pages. In addition to that code, git-annex's source
;; tree has a file that's not included in the tarball but is used
;; by the Makefile to build man pages. Copy the core bits here.
(call-with-output-file "Build/MakeMans.hs"
(lambda (out)
(format out "module Main where~%")
(format out "import Build.Mans~%")
(format out "main = buildMansOrWarn~%")))
(invoke "runhaskell" "Build/MakeMans.hs")))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
;; We need to set the path so that Git recognizes ;; We need to set the path so that Git recognizes
@ -375,11 +370,8 @@ to @code{cabal repl}).")
(apply (assoc-ref %standard-phases 'build) args))) (apply (assoc-ref %standard-phases 'build) args)))
(add-after 'install 'install-manpages (add-after 'install 'install-manpages
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((man (string-append (assoc-ref outputs "out") (setenv "PREFIX" (assoc-ref outputs "out"))
"/man/man1/"))) (invoke "make" "install-mans")))
(mkdir-p man)
(for-each (lambda (file) (install-file file man))
(find-files "man")))))
(add-after 'install 'install-symlinks (add-after 'install 'install-symlinks
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))