120/169: gnu: miniflux: Fix build.

[guix-commits]

sharlatan pushed a commit to branch go-team
in repository guix.

commit fa49cd2840c710f862828c0360971fa62c064d94
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Mon Sep 16 10:58:25 2024 +0100

    gnu: miniflux: Fix build.
    
    Fix the build as senn in <https://ci.guix.gnu.org/build/5804243/log/raw>.
    
    * gnu/packages/web.scm (miniflux): Fix build.
    [arguments]: <#:phases>: Add 'fix-embed-files.
    
    Change-Id: If266fa82e0e810e340a3c69c80edbacddd6bcefa
---
 gnu/packages/web.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 5d8f043355..5be742ee21 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -367,6 +367,24 @@ and its related documentation.")
                #$version))
       #:phases
       #~(modify-phases %standard-phases
+          ;; 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 _
+              (for-each (lambda (file)
+                          (let ((file-store-path (readlink file)))
+                            (delete-file file)
+                            (copy-recursively file-store-path file)))
+                        (find-files "src" ".*(editions_defaults.binpb)$"))))
           ;; XXX: Replace when go-build-system supports nested path.
           (replace 'check
             (lambda* (#:key import-path tests? #:allow-other-keys)