From fd8f6bf959fd73444bd337de9a36ed1660180a8d Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Wed, 1 Jun 2022 12:19:31 +0300
Subject: gn: Adjust vg for other architectures

---
 gn/packages/bioinformatics.scm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'gn')

diff --git a/gn/packages/bioinformatics.scm b/gn/packages/bioinformatics.scm
index 536098c..f81c7aa 100644
--- a/gn/packages/bioinformatics.scm
+++ b/gn/packages/bioinformatics.scm
@@ -1659,9 +1659,18 @@ available to other researchers.")
                               "deps/libvgio/include/handlegraph")))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases
+     `(#:phases
        (modify-phases %standard-phases
          (delete 'configure)    ; no configure script
+         ,@(if (target-riscv64?)
+             ;; riscv64 doesn't take '-march=native. This needs to be removed
+             ;; for all architectures if/when vg is upstreamed.
+             `((add-after 'unpack 'dont-build-native
+                 (lambda _
+                   (substitute* (append (find-files "." "CMakeLists\\.txt")
+                                        (find-files "." "Makefile"))
+                     (("-march=native") "")))))
+             '())
          (add-after 'unpack 'patch-source
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "Makefile"
@@ -1769,8 +1778,9 @@ available to other researchers.")
                (substitute* "Makefile"
                  ((".*test-docs.*") "")))))
          (add-after 'build 'build-manpages
-           (lambda _
-             (invoke "make" "man")))
+           (lambda* (#:key inputs #:allow-other-keys)
+             (when (assoc-ref inputs "asciidoctor")
+               (invoke "make" "man"))))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
-- 
cgit v1.2.3