From c4a0501c05a29f8272a058bcf8329aeb28136123 Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Wed, 8 Aug 2018 16:01:30 +0000
Subject: Started on faster-lmm-dev package

---
 gn/packages/gemma.scm | 101 ++++++++++++++++++++++++++------------------------
 1 file changed, 52 insertions(+), 49 deletions(-)

diff --git a/gn/packages/gemma.scm b/gn/packages/gemma.scm
index e3a03c6..ba272f5 100644
--- a/gn/packages/gemma.scm
+++ b/gn/packages/gemma.scm
@@ -58,58 +58,9 @@
   #:use-module (gnu packages web)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages bootstrap)
-  ; #:use-module (gn packages ldc)
-  #:use-module (gn packages ldc)
   #:use-module (gn packages shell)
   #:use-module (srfi srfi-1))
 
-(define-public faster-lmm-d ; incomplete, just creates build environment
-  (let ((commit "dea6abf61b633ed55e6a2997068f2d54abe5376b"))
-    (package
-     (name "faster-lmm-d")
-     (version (string-append "0.0.1-" (string-take commit 7)))
-     (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://github.com/pjotrp/faster_lmm_d.git")
-                    (commit commit)))
-              (file-name (string-append name "-" version "-checkout"))
-              (sha256
-               (base32
-                "1syrn32g1q06bsnrk9wl7q2m5mvvglys2zl92rx0bi49kp2i0ngv"))))
-     (build-system trivial-build-system)
-     (propagated-inputs
-      `(("openblas" ,openblas)
-        ("gsl" ,gsl)
-        ("lapack" ,lapack)
-        ("dub" ,dub)
-        ("gcc" ,gcc)
-        ("glibc" ,glibc)
-        ("binutils" ,binutils) ; for ld linker
-        ("gfortran:lib" ,gfortran "lib")
-        ; ("make" ,make)
-        ))
-     (native-inputs
-      `(("ldc" ,ldc)
-        ("shunit2" ,shunit2)
-        ("which" ,which)
-        ))
-     (arguments
-      `(#:modules ((guix build utils))
-        #:builder
-        (begin
-          (use-modules (guix build utils))
-          (let ((target (string-append (assoc-ref %outputs "out")
-                                       "/share")))
-            (write target)
-            (mkdir-p target)
-            (copy-recursively (assoc-ref %build-inputs "source") target)
-            #t))))
-     (home-page "https://github.com/pjotrp")
-     (synopsis "Parallel LMM")
-     (description
-      ".")
-     (license license:gpl3))))
 
 (define-public openblas-git
   (let ((commit "893bd14e924fa72a4ed345a75d64c637f1b1c550"))
@@ -365,3 +316,55 @@ association studies (GWAS).")
     (synopsis "GEMMA development environment imports build tools, gemma-wrapper and faster-lmm-d")
     (description "Gemma-development")
     (license license:gpl3))))
+
+(define-public faster-lmm-d-dev ; incomplete, just creates build environment
+  (let ((commit "68e22043ce0ca348cbc4f3bdd015e036ba9ac5f2"))
+    (package
+     (name "faster-lmm-d-dev")
+     (version (string-append "0.0.1-" (string-take commit 7)))
+     (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/genetics-statistics/faster_lmm_d.git")
+                    (commit commit)))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "0awcsrmpq1zbcy145l5ssmsxzfq5dq9yr0901hk977lmjf99gxng"))))
+     (build-system trivial-build-system)
+     (propagated-inputs
+      `(("openblas" ,openblas)
+        ("gsl" ,gsl)
+        ; ("lapack" ,lapack)
+        ("dub" ,dub)
+        ("gcc" ,gcc-7)
+        ("gdb" ,gdb)
+        ; ("glibc" ,glibc)
+        ("binutils" ,binutils) ; for ld linker
+        ("gfortran:lib" ,gfortran "lib")
+        ; ("make" ,make)
+        ("ldc" ,ldc)
+        ("shunit2" ,shunit2)
+        ("linux-libre-headers" ,linux-libre-headers)
+        ("openblas" ,openblas-git)
+        ))
+     (inputs
+     `(
+        ("which" ,which)
+        ))
+     (arguments
+      `(#:modules ((guix build utils))
+        #:builder
+        (begin
+          (use-modules (guix build utils))
+          (let ((target (string-append (assoc-ref %outputs "out")
+                                       "/share")))
+            (write target)
+            (mkdir-p target)
+            ; (copy-recursively (assoc-ref %build-inputs "source") target)
+            #t))))
+     (home-page "https://github.com/pjotrp")
+     (synopsis "Build system for faster-lmm-d")
+     (description
+      ".")
+     (license license:gpl3))))
-- 
cgit v1.2.3