From 6a4818716d16613d56f0a4c7c8745ae75da8edb6 Mon Sep 17 00:00:00 2001
From: zimoun <zimon.toutoune@gmail.com>
Date: Fri, 30 Oct 2020 16:01:26 +0100
Subject: [PATCH] gnu: r-gqtlbase: Update to 1.21.1.

Co-authored-by: Ricardo Wurmus <rekado@elephly.net>

* gnu/packages/bioinformatics.scm (r-gqtlbase): Update to 1.21.1.
[arguments]: Add phase to patch broken NAMESPACE file.
---
 gnu/packages/bioinformatics.scm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 42ebbe7cbc..c758724552 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -10563,16 +10563,26 @@ interval to data view, mismatch pileup, and several splicing summaries.")
 (define-public r-gqtlbase
   (package
     (name "r-gqtlbase")
-    (version "1.20.4")
+    (version "1.21.1")
     (source
      (origin
        (method url-fetch)
        (uri (bioconductor-uri "gQTLBase" version))
        (sha256
         (base32
-         "1ly14vhhqxjpbxjypi6ppd37dycabdhf4ny4nsvp9969k418zv41"))))
+         "0nipibm1bk9k70ajbw1f6vjmz0dh7gk21l17q3m54bnawxsggrfh"))))
     (properties `((upstream-name . "gQTLBase")))
     (build-system r-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         ;; This is an upstream bug.
+         (add-after 'unpack 'fix-imports
+           (lambda _
+             (substitute* "NAMESPACE"
+               ((".*maxffmode.*") "")
+               (("importFrom\\(ff,.*") "import(ff)\n"))
+             #t)))))
     (propagated-inputs
      `(("r-batchjobs" ,r-batchjobs)
        ("r-bbmisc" ,r-bbmisc)