gnu: Remove now unneeded 'unpack' phases for unzip.

This is a followup to commit cd0385b.

* gnu/packages/bioinformatics.scm (hisat)[arguments]: Remove 'unpack'
  phase.
* gnu/packages/image.scm (freeimage): Likewise.
* gnu/packages/python.scm (python2-cssutils): Likewise.

gnu/packages/bioinformatics.scm

@@ -265,35 +265,30 @@ Illumina, Roche 454, and the SOLiD platform.")
                             '()
                             '("POPCNT_CAPABILITY=0")))
        #:phases
-       (alist-replace
+       (alist-cons-after
-        'unpack
+        'unpack 'patch-sources
-        (lambda* (#:key source #:allow-other-keys)
+        (lambda _
-          (and (zero? (system* "unzip" source))
+          ;; XXX Cannot use snippet because zip files are not supported
-               (chdir "hisat-0.1.4-beta")))
+          (substitute* "Makefile"
-        (alist-cons-after
+            (("^CC = .*$") "CC = gcc")
-         'unpack 'patch-sources
+            (("^CPP = .*$") "CPP = g++")
-         (lambda _
+            ;; replace BUILD_HOST and BUILD_TIME for deterministic build
-           ;; XXX Cannot use snippet because zip files are not supported
+            (("-DBUILD_HOST=.*") "-DBUILD_HOST=\"\\\"guix\\\"\"")
-           (substitute* "Makefile"
+            (("-DBUILD_TIME=.*") "-DBUILD_TIME=\"\\\"0\\\"\""))
-             (("^CC = .*$") "CC = gcc")
+          (substitute* '("hisat-build" "hisat-inspect")
-             (("^CPP = .*$") "CPP = g++")
+            (("/usr/bin/env") (which "env"))))
-             ;; replace BUILD_HOST and BUILD_TIME for deterministic build
+        (alist-replace
-             (("-DBUILD_HOST=.*") "-DBUILD_HOST=\"\\\"guix\\\"\"")
+         'install
-             (("-DBUILD_TIME=.*") "-DBUILD_TIME=\"\\\"0\\\"\""))
+         (lambda* (#:key outputs #:allow-other-keys)
-           (substitute* '("hisat-build" "hisat-inspect")
+           (let ((bin (string-append (assoc-ref outputs "out") "/bin/")))
-             (("/usr/bin/env") (which "env"))))
+             (mkdir-p bin)
-         (alist-replace
+             (for-each
-          'install
+              (lambda (file)
-          (lambda* (#:key outputs #:allow-other-keys)
+                (copy-file file (string-append bin file)))
-            (let ((bin (string-append (assoc-ref outputs "out") "/bin/")))
+              (find-files
-              (mkdir-p bin)
+               "."
-              (for-each
+               "hisat(-(build|align|inspect)(-(s|l)(-debug)*)*)*$"))))
-               (lambda (file)
+         (alist-delete 'configure %standard-phases)))))
-                 (copy-file file (string-append bin file)))
-               (find-files
-                "."
-                "hisat(-(build|align|inspect)(-(s|l)(-debug)*)*)*$"))))
-          (alist-delete 'configure %standard-phases))))))
     (native-inputs
      `(("unzip" ,unzip)))
     (inputs

gnu/packages/image.scm

@@ -385,20 +385,15 @@ supplies a generic doubly-linked list and some string functions.")
               "0q1gnjnxgphsh4l8i9rfly4bi8xsczsb9ryzbm8hf38lc3fk5bq3"))))
    (build-system gnu-build-system)
    (arguments
-    '(#:phases (alist-replace
+    '(#:phases (alist-delete
-                'unpack
+                'configure
-                (lambda* (#:key source #:allow-other-keys)
+                (alist-cons-before
-                  (and (zero? (system* "unzip" source))
+                 'build 'patch-makefile
-                       (chdir "FreeImage")))
+                 (lambda* (#:key outputs #:allow-other-keys)
-                (alist-delete
+                   (substitute* "Makefile.gnu"
-                 'configure
+                     (("/usr") (assoc-ref outputs "out"))
-                 (alist-cons-before
+                     (("-o root -g root") "")))
-                  'build 'patch-makefile
+                 %standard-phases))
-                  (lambda* (#:key outputs #:allow-other-keys)
-                    (substitute* "Makefile.gnu"
-                      (("/usr") (assoc-ref outputs "out"))
-                      (("-o root -g root") "")))
-                  %standard-phases)))
       #:make-flags '("CC=gcc")
       #:tests? #f)) ; no check target
    (native-inputs

gnu/packages/python.scm

@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
-;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
@@ -3129,13 +3129,7 @@ capabilities to the Python interpreter.")
     (arguments
      `(#:python ,python-2 ; Otherwise tests fail with a syntax error.
        #:tests? #f ; The tests apparently download an external URL.
-       #:phases
+       ))
-       (alist-replace
-        'unpack
-        (lambda* (#:key source #:allow-other-keys)
-          (and (zero? (system* "unzip" source))
-               (chdir "cssutils-1.0")))
-        %standard-phases)))
     (home-page "http://cthedot.de/cssutils/")
     (synopsis
       "CSS Cascading Style Sheets library for Python")