~ruther/guix-local

a61bd6a5e3f375c08794519f4c9528c899eb5f32 — Efraim Flashner 10 years ago 27930f8
gnu: irssi: Use 'modify-phases'.

* gnu/packages/irc.scm (irssi)[arguments]: Use 'modify-phases'.
1 files changed, 10 insertions(+), 11 deletions(-)

M gnu/packages/irc.scm
M gnu/packages/irc.scm => gnu/packages/irc.scm +10 -11
@@ 88,17 88,16 @@ irssi, but graphical.")
    (build-system gnu-build-system)
    (arguments
     `(#:phases
       (alist-replace
        'configure
        (lambda* (#:key inputs outputs #:allow-other-keys)
          (let ((out (assoc-ref outputs "out"))
                (ncurses (assoc-ref inputs "ncurses")))
            (setenv "CONFIG_SHELL" (which "bash"))
            (zero?
             (system* "./configure"
                      (string-append "--prefix=" out)
                      (string-append "--with-ncurses=" ncurses)))))
        %standard-phases)))
       (modify-phases %standard-phases
         (replace 'configure
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out"))
                   (ncurses (assoc-ref inputs "ncurses")))
               (setenv "CONFIG_SHELL" (which "bash"))
               (zero?
                (system* "./configure"
                         (string-append "--prefix=" out)
                         (string-append "--with-ncurses=" ncurses)))))))))
    (inputs
     `(("glib" ,glib)
       ("ncurses" ,ncurses)