branch master updated: gnu: git-annex: Create fake static output.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

samplet pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new e13fefb  gnu: git-annex: Create fake static output.
e13fefb is described below

commit e13fefbcffa50144d9301d67b61928ac3c964fb3
Author: Timothy Sample <samplet@ngyro.com>
AuthorDate: Mon Aug 17 11:03:58 2020 -0400

    gnu: git-annex: Create fake static output.
    
    This is a work-around for a problem introduced by commit
    718dc7d4a5e5d26cac80c79d78535677e0379dc8.
    
    * gnu/packages/haskell-apps.scm (git-annex)[arguments]: Add a phase
    to generate the "static" output.
---
 gnu/packages/haskell-apps.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/haskell-apps.scm b/gnu/packages/haskell-apps.scm
index c70f173..dac626f 100644
--- a/gnu/packages/haskell-apps.scm
+++ b/gnu/packages/haskell-apps.scm
@@ -427,7 +427,17 @@ to @code{cabal repl}).")
                         (string-append bin "/git-annex-shell"))
                (symlink (string-append bin "/git-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
      `(("curl" ,curl)
        ("ghc-aeson" ,ghc-aeson)