futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Revert "build/go: Don't use set!"

Browse Source 
This causes too many rebuilds.

This reverts commit 0a4b6fd51a2a4f87cbd85019db07984fd37096d7.
This commit is contained in:
Efraim Flashner 2023-12-04 13:19:53 +02:00
parent 61cc93e49c
commit 1d2d6aaeaf
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/build/go-build-system.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us> ;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020, 2021, 2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev> ;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -227,10 +227,9 @@ unpacking."
(when (string-null? import-path) (when (string-null? import-path)
(display "WARNING: The Go import path is unset.\n")) (display "WARNING: The Go import path is unset.\n"))
(let ((dest (string-append (getenv "GOPATH") "/src/" (when (string-null? unpack-path)
(if (string-null? unpack-path) (set! unpack-path import-path))
import-path (let ((dest (string-append (getenv "GOPATH") "/src/" unpack-path)))
unpack-path))))
(mkdir-p dest) (mkdir-p dest)
(if (file-is-directory? source) (if (file-is-directory? source)
(copy-recursively source dest #:keep-mtime? #t) (copy-recursively source dest #:keep-mtime? #t)