~ruther/guix-local

bd511903dec501dc503a2bafa28c60386c9d8118 — Sharlatan Hellseher 2 years ago f5050fb
gnu: ghq: Fix build.

Fix build as seen in <https://ci.guix.gnu.org/build/3490264/details>.

* gnu/packages/version-control.scm (ghq): Use G-expressions.
[arguments] <#:go>: Use go-1.21.
<#:phases>: Remove trailing #t from lambda.

Change-Id: Ifb1e133a2570dcd04212ef43b46c8b41c3507c88
1 files changed, 18 insertions(+), 17 deletions(-)

M gnu/packages/version-control.scm
M gnu/packages/version-control.scm => gnu/packages/version-control.scm +18 -17
@@ 3720,23 3720,24 @@ If several repos are related, it helps to see their status together.")
                "155sfmhmh4ia3iinm1s8fk7fxyn5dxdryad9xkbg7mr3i3ikqjwh"))))
    (build-system go-build-system)
    (arguments
     '(#:install-source? #f
       #:import-path "github.com/x-motemen/ghq"
       #:phases
       (modify-phases %standard-phases
         (add-after 'install 'install-completions
           (lambda* (#:key outputs import-path #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (bash-completion (string-append out "/etc/bash_completion.d"))
                    (zsh-completion (string-append out "/share/zsh/site-functions")))
               (with-directory-excursion (string-append "src/" import-path)
                 (mkdir-p bash-completion)
                 (copy-file "misc/bash/_ghq"
                            (string-append bash-completion "/ghq"))
                 (mkdir-p zsh-completion)
                 (copy-file "misc/zsh/_ghq"
                            (string-append zsh-completion "/_ghq"))))
             #t)))))
     (list
      #:install-source? #f
      #:go go-1.21
      #:import-path "github.com/x-motemen/ghq"
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'install 'install-completions
            (lambda* (#:key outputs import-path #:allow-other-keys)
              (let* ((out #$output)
                     (bash-completion (string-append out "/etc/bash_completion.d"))
                     (zsh-completion (string-append out "/share/zsh/site-functions")))
                (with-directory-excursion (string-append "src/" import-path)
                  (mkdir-p bash-completion)
                  (copy-file "misc/bash/_ghq"
                             (string-append bash-completion "/ghq"))
                  (mkdir-p zsh-completion)
                  (copy-file "misc/zsh/_ghq"
                             (string-append zsh-completion "/_ghq")))))))))
    (native-inputs
     (list git-minimal))
    (inputs