gnu: git-annex: Create fake static output.

This is a work-around for a problem introduced by commit
718dc7d4a5.

* gnu/packages/haskell-apps.scm (git-annex)[arguments]: Add a phase
to generate the "static" output.
This commit is contained in:
Timothy Sample 2020-08-17 11:03:58 -04:00
parent 02554a58a2
commit e13fefbcff
No known key found for this signature in database
GPG key ID: 2AC6A5EC1C357C59

View file

@ -427,7 +427,17 @@ (define-public git-annex
(string-append bin "/git-annex-shell")) (string-append bin "/git-annex-shell"))
(symlink (string-append bin "/git-annex") (symlink (string-append bin "/git-annex")
(string-append bin "/git-remote-tor-annex")) (string-append bin "/git-remote-tor-annex"))
#t)))))) #t)))
(add-after 'install 'touch-static-output
(lambda* (#:key outputs #:allow-other-keys)
;; The Haskell build system adds a "static" output by
;; default, and there is no way to override this until
;; <https://issues.guix.gnu.org/41569> is fixed. Without
;; this phase, the daemon complains because we do not
;; create the "static" output.
(with-output-to-file (assoc-ref outputs "static")
(lambda ()
(display "static output not used\n"))))))))
(inputs (inputs
`(("curl" ,curl) `(("curl" ,curl)
("ghc-aeson" ,ghc-aeson) ("ghc-aeson" ,ghc-aeson)