From c6d8c68d8f85788ca489cc92241a2c2578bb43d8 Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Wed, 20 Sep 2017 12:52:05 +0000
Subject: Adding gn-server package for Elixir

---
 gn/packages/genenetwork.scm | 60 ++++++++++++++++++++++++++++-----------------
 1 file changed, 37 insertions(+), 23 deletions(-)

(limited to 'gn/packages/genenetwork.scm')

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 004c2fe..7e5339f 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -21,6 +21,7 @@
   #:use-module (gnu packages compression)
   #:use-module (gnu packages databases)
   #:use-module (gnu packages cpio)
+  #:use-module (gnu packages elixir)
   #:use-module (gnu packages file)
   #:use-module (gnu packages gcc)
   #:use-module (gnu packages graphviz)
@@ -90,30 +91,43 @@
     (description #f)
     (license #f)))
 
-(define-public qn-server ; guix obsolete - but used in GN2
-  (let ((commit "dd9c7fb2a9d5fa40b4054e1bcb7c57905d98d5f8"))
-  (package
-    (name "qn-server")
-    (version (string-append "1.1-gn2-" (string-take commit 7) ))
-    (source (origin
-             (method git-fetch)
-             (uri (git-reference
-                   ;; (url "https://github.com/genenetwork/genenetwork2.git")
-                   (url "https://github.com/pjotrp/QTLreaper.git")
-                   (commit commit)))
-             (file-name (string-append name "-" (string-take commit 7)))
-             (sha256
-              (base32
-               "1ldcvyk8y8w6f4ci04hzx85sknd5a3h424p5bfi4fz32sm2p7fja"))))
-    (build-system python-build-system)
+(define-public gn-server
+  (let ((md5 "93e745e9c"))
+    (package
+    (name "gn-server")
+    (version "0.0.1")
+    (source
+     (origin
+       (method url-fetch)
+       (uri "http://files.genenetwork.org/raw_database/md5sum.txt") ; any old file
+       (file-name (string-append name "-" md5))
+       (sha256
+        (base32 "1cnkiwid4h0nnf93rm647ji9vhfzjl23arp1xj374la7mmic9jqs"))))
+    (build-system trivial-build-system)
+    (native-inputs `(("unzip" ,unzip)
+                     ("source" ,source)))
+    (inputs `(("sassc" ,sassc)))
+    (propagated-inputs
+     `(("python" ,python)
+       ("elixir" ,elixir)
+       ("mysql" ,mysql)
+       ))
     (arguments
-     `(#:python ,python-2
-       #:tests? #f))   ; no 'setup.py test' really!
-    (home-page "")
-    (synopsis "GeneNetwork REST API")
-    (description
-"")
-    (license license:gpl2+))))
+     `(#: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 "http://github.com/genenetwork/gn_server/")
+    (synopsis "GN REST server API")
+    (description "REST Server")
+    (license license:agpl3+))))
 
 (define-public qtlreaper
   (let ((commit "dd9c7fb2a9d5fa40b4054e1bcb7c57905d98d5f8"))
-- 
cgit v1.2.3