16/20: squash! gnu: ghc-zip-archive: Update to 0.4.1.

[guix-commits]

samplet pushed a commit to branch wip-haskell-updates
in repository guix.

commit 31ebfb9d2bcb6c0cbc4bc5ac6e592a4f35c786dc
Author: Timothy Sample <address@hidden>
Date:   Fri Nov 1 21:55:15 2019 -0400

    squash! gnu: ghc-zip-archive: Update to 0.4.1.
---
 gnu/packages/haskell-xyz.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/haskell-xyz.scm b/gnu/packages/haskell-xyz.scm
index acba368..392f042 100644
--- a/gnu/packages/haskell-xyz.scm
+++ b/gnu/packages/haskell-xyz.scm
@@ -11835,13 +11835,24 @@ documents.")
         (base32
          "1cdix5mnxrbs7b2kivhdydhfzgxidd9dqlw71mdw5p21cabwkmf5"))))
     (build-system haskell-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'check 'set-PATH-for-tests
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((unzip (assoc-ref inputs "unzip"))
+                   (which (assoc-ref inputs "which"))
+                   (path (getenv "PATH")))
+               (setenv "PATH" (string-append unzip "/bin:" which "/bin:" path))
+               #t))))))
     (inputs
      `(("ghc-digest" ,ghc-digest)
        ("ghc-temporary" ,ghc-temporary)
        ("ghc-zlib" ,ghc-zlib)))
     (native-inputs
      `(("ghc-hunit" ,ghc-hunit)
-       ("unzip" ,unzip)))
+       ("unzip" ,unzip)
+       ("which" ,which)))
     (home-page "https://hackage.haskell.org/package/zip-archive";)
     (synopsis "Zip archive library for Haskell")
     (description "The zip-archive library provides functions for creating,