45/172: gnu: go-github-com-libp2p-go-libp2p: Fix build.

[guix-commits]

sharlatan pushed a commit to branch master
in repository guix.

commit e703f973eb12144f6f7dccdc4c707053ad69d0dc
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Sat Sep 14 21:46:53 2024 +0100

    gnu: go-github-com-libp2p-go-libp2p: Fix build.
    
    * gnu/packages/ipfs.scm (go-github-com-libp2p-go-libp2p): Fix build.
    [arguments]: <#:phases>: Swap 'fix-embed-go-libp2p-asm-util with
    'fix-embed-files, which implements generalized solution to fix embed
    files issue.
    
    Change-Id: Ic20c0c2855d8add4e80e33cd617f05bd90f56628
---
 gnu/packages/ipfs.scm | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/ipfs.scm b/gnu/packages/ipfs.scm
index 706015b633..3c3604902b 100644
--- a/gnu/packages/ipfs.scm
+++ b/gnu/packages/ipfs.scm
@@ -857,15 +857,27 @@ their levels to be controlled individually.")
       #:import-path "github.com/libp2p/go-libp2p"
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'fix-embed-go-libp2p-asn-util
+          ;; TODO: Implement it in go-build-system.
+          ;;
+          ;; This happens due to Golang can't determine the valid directory of
+          ;; the module of embed file which is symlinked during setup
+          ;; environment phase, but easy resolved after coping file from the
+          ;; store to the build directory of the current package, see details
+          ;; in Golang source:
+          ;;
+          ;; - URL: <https://github.com/golang/go/blob/>
+          ;; - commit: 82c14346d89ec0eeca114f9ca0e88516b2cda454
+          ;; - file: src/cmd/go/internal/load/pkg.go#L2059
+          (add-after 'unpack 'fix-embed-files
             (lambda _
-              (delete-file
-               
"src/github.com/libp2p/go-libp2p-asn-util/sorted-network-list.bin")
-              (copy-file
-               (string-append
-                #$(this-package-input 
"go-github-com-libp2p-go-libp2p-asn-util")
-                
"/src/github.com/libp2p/go-libp2p-asn-util/sorted-network-list.bin")
-               
"src/github.com/libp2p/go-libp2p-asn-util/sorted-network-list.bin"))))))
+              (for-each
+               (lambda (file)
+                 (let ((file-store-path (readlink file)))
+                   (delete-file file)
+                   (copy-recursively file-store-path file)))
+               (find-files "src" (string-append
+                                  ".*(editions_defaults.binpb"
+                                  "|sorted-network-list.bin)$"))))))))
     (propagated-inputs
      (list go-github-com-benbjohnson-clock
            go-github-com-davidlazar-go-crypto