gnu: e2fsprogs: Use 'modify-phases' syntax.

* gnu/packages/linux.scm (e2fsprogs)[arguments]<#:phases>: Use 'modify-phases'.

gnu/packages/linux.scm

@@ -695,8 +695,9 @@ slabtop, and skill.")
                                          (assoc-ref %outputs "out")
                                          "/lib"))
 
-       #:phases (alist-cons-before
-                 'configure 'patch-shells
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'patch-shells
            (lambda _
              (substitute* "configure"
                (("/bin/sh (.*)parse-types.sh" _ dir)
@@ -704,9 +705,9 @@ slabtop, and skill.")
                                "parse-types.sh")))
              (substitute* (find-files "." "^Makefile.in$")
                (("#!/bin/sh")
-                      (string-append "#!" (which "sh")))))
-                 (alist-cons-after
-                  'install 'install-libs
+                (string-append "#!" (which "sh"))))
+             #t))
+           (add-after 'install 'install-libs
              (lambda* (#:key outputs #:allow-other-keys)
                (let* ((out (assoc-ref outputs "out"))
                       (lib (string-append out "/lib")))
@@ -721,8 +722,7 @@ slabtop, and skill.")
                         (for-each (lambda (file)
                                     (chmod file #o666))
                                   archives)
-                             #t))))
-                  %standard-phases))
+                        #t))))))
 
        ;; FIXME: Tests work by comparing the stdout/stderr of programs, that
        ;; they fail because we get an extra line that says "Can't check if