From 7d71f7e146837f8296b8fb82abedf10b20bb5d2f Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Mon, 25 Nov 2019 02:20:39 -0600
Subject: gn: Remove sdsl-lite-gn.

We can use libdivsufsort from (gnu packages bioinformatics).

* gn/packages/bioinformatics.scm (sdsl-lite-gn): Remove variable.
(seqwish, graphaligner)[inputs]: Remove sdsl-lite-gn. Add sdsl-lite,
libdivsufsort.
[arguments]: Adjust for change in inputs.
---
 gn/packages/bioinformatics.scm | 31 ++++++++-----------------------
 1 file changed, 8 insertions(+), 23 deletions(-)

diff --git a/gn/packages/bioinformatics.scm b/gn/packages/bioinformatics.scm
index 5660470..c107c83 100644
--- a/gn/packages/bioinformatics.scm
+++ b/gn/packages/bioinformatics.scm
@@ -878,6 +878,7 @@ interest, and this app can provide values and figures for applicants to use.")
          (replace 'build
            (lambda* (#:key inputs #:allow-other-keys)
              (let ((sdsl-lite      (assoc-ref inputs "sdsl-lite"))
+                   (sufsort        (assoc-ref inputs "sufsort"))
                    (bsort          (assoc-ref inputs "bsort"))
                    (mmap_allocator (assoc-ref inputs "mmap-allocator"))
                    (tayweeargs     (assoc-ref inputs "tayweeargs-source"))
@@ -901,8 +902,8 @@ interest, and this app can provide values and figures for applicants to use.")
                         (find-files "src" ".")
                         (list
                           (string-append sdsl-lite "/lib/libsdsl.a")
-                          (string-append sdsl-lite "/lib/libdivsufsort.a")
-                          (string-append sdsl-lite "/lib/libdivsufsort64.a")
+                          (string-append sufsort "/lib/libdivsufsort.so")
+                          (string-append sufsort "/lib/libdivsufsort64.so")
                           (string-append mmap_allocator "/lib/libmmap_allocator.a")
                           (string-append bsort "/lib/libbsort.a")))))))
          (replace 'check
@@ -920,7 +921,8 @@ interest, and this app can provide values and figures for applicants to use.")
      `(("bsort" ,ekg-bsort)
        ("mmap-allocator" ,ekg-mmap-allocator)
        ("openmpi" ,openmpi)
-       ("sdsl-lite" ,sdsl-lite-gn)
+       ("sdsl-lite" ,sdsl-lite)
+       ("sufsort" ,libdivsufsort)
        ("zlib" ,zlib)))
     (native-inputs
      `(("prove" ,perl)
@@ -983,20 +985,6 @@ limited by the use of sorted disk-backed arrays and succinct rank/select
 dictionaries to record a queryable version of the graph.")
     (license license:expat)))
 
-(define sdsl-lite-gn
-  (package
-    (inherit sdsl-lite)
-    (name "sdsl-lite-gn")
-    (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'install-libdivsufsort
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (install-file "lib/libdivsufsort.a" (string-append out "/lib"))
-               (install-file "lib/libdivsufsort64.a" (string-append out "/lib"))
-               #t))))))))
-
 (define ekg-bsort
   (let ((commit "c3ab0d3308424030e0a000645a26d2c10a59a124")
         (revision "1"))
@@ -1089,11 +1077,7 @@ dictionaries to record a queryable version of the graph.")
           (lambda* (#:key inputs #:allow-other-keys)
             (let ((sdsl (assoc-ref inputs "sdsl-lite")))
               (substitute* "makefile"
-                (("VERSION .*") (string-append "VERSION = " ,version "\n"))
-                (("`pkg-config --libs libdivsufsort`")
-                 (string-append sdsl "/lib/libdivsufsort.a"))
-                (("`pkg-config --libs libdivsufsort64`")
-                 (string-append sdsl "/lib/libdivsufsort64.a"))))
+                (("VERSION .*") (string-append "VERSION = " ,version "\n"))))
             #t))
         (delete 'configure) ; no configure phase
         (replace 'install
@@ -1111,12 +1095,13 @@ dictionaries to record a queryable version of the graph.")
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("protobuf" ,protobuf "static")
-      ("sdsl-lite" ,sdsl-lite-gn)
+      ("sdsl-lite" ,sdsl-lite)
       ("sparsehash" ,sparsehash)
       ("zlib" ,zlib "static")))
    (inputs
     `(("boost" ,boost-static)
       ("jemalloc" ,jemalloc)
+      ("libdivsufsort" ,libdivsufsort)
       ("mummer" ,mummer)
       ("protobuf" ,protobuf)
       ("zlib" ,zlib)))
-- 
cgit v1.2.3