02/10: gnu: ghc-7: Unpack tarballs from the store.

[guix-commits]

efraim pushed a commit to branch staging
in repository guix.

commit 0fc0ce23421243fae99f53c013a4c80b51f128ef
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Aug 21 12:49:34 2022 +0300

    gnu: ghc-7: Unpack tarballs from the store.
    
    * gnu/packages/haskell.scm (ghc-7)[arguments]: Adjust custom 'unpack-bin
    and 'unpack-testsuite-and-fix-bins phases to unpack tarballs directly
    from the store.
---
 gnu/packages/haskell.scm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm
index 59adcc8185..29a79289d8 100644
--- a/gnu/packages/haskell.scm
+++ b/gnu/packages/haskell.scm
@@ -484,15 +484,11 @@ libraries are included in this package.")
                (lambda* (#:key inputs outputs #:allow-other-keys)
                 (mkdir-p ghc-bootstrap-prefix)
                 (with-directory-excursion ghc-bootstrap-path
-                  (copy-file (assoc-ref inputs "ghc-binary")
-                             "ghc-bin.tar.xz")
-                  (invoke "tar" "xvf" "ghc-bin.tar.xz"))))
+                  (invoke "tar" "xvf" (assoc-ref inputs "ghc-binary")))))
              (add-after 'unpack-bin 'unpack-testsuite-and-fix-bins
                (lambda* (#:key inputs outputs #:allow-other-keys)
                  (with-directory-excursion ".."
-                   (copy-file (assoc-ref inputs "ghc-testsuite")
-                              "ghc-testsuite.tar.xz")
-                   (invoke "tar" "xvf" "ghc-testsuite.tar.xz"))
+                   (invoke "tar" "xvf" (assoc-ref inputs "ghc-testsuite")))
                  (substitute*
                    (list "testsuite/timeout/Makefile"
                          "testsuite/timeout/timeout.py"