diff options
Diffstat (limited to 'gn')
| -rw-r--r-- | gn/packages/genenetwork.scm | 60 |
1 files changed, 37 insertions, 23 deletions
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")) |