From 807492f12627cb69e5e28df0c06dc5493bb3b4e7 Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Sat, 25 Jul 2020 13:54:43 +0100
Subject: Remove unused packages

---
 gn/packages/genenetwork.scm | 83 ++-------------------------------------------
 1 file changed, 2 insertions(+), 81 deletions(-)

(limited to 'gn')

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 98be132..8d61caf 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -48,85 +48,6 @@
   #:use-module (srfi srfi-1))
 
 
-
-(define-public my-deploy
-  (package
-    (name "my-deploy")
-    (version "0.0.1")
-    (source #f)
-    (build-system trivial-build-system)
-    (arguments
-     `(#:guile ,%bootstrap-guile
-       #:modules ((guix build utils))
-       #:builder
-       (let* ((out  (assoc-ref %outputs "out"))
-              (bash (assoc-ref %build-inputs "bash"))
-              (foo  (string-append out "/foo")))
-         (begin
-           (use-modules (guix build utils))
-           (mkdir out)
-           (call-with-output-file foo
-             (lambda (p)
-               (format p
-                       "#!~a~%echo \"${GUIX_FOO} ${GUIX_BAR}\"~%"
-                       bash)))
-           (chmod foo #o777)
-           ;; wrap-program uses `which' to find bash for the wrapper
-           ;; shebang, but it can't know about the bootstrap bash in
-           ;; the store, since it's not named "bash".  Help it out a
-           ;; bit by providing a symlink to this package's output.
-           (symlink bash (string-append out "/bash"))
-           (setenv "PATH" out)
-           (wrap-program foo `("GUIX_FOO" prefix ("hello")))
-           (wrap-program foo `("GUIX_BAR" prefix ("world")))
-           #t))))
-    (inputs `(("bash" ,(bootstrap-executable "bash"
-                                             (%current-system)))))
-
-    (home-page #f)
-    (synopsis #f)
-    (description #f)
-    (license #f)))
-
-(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)
-       ("mariadb" ,mariadb)
-       ("gnu-make" ,gnu-make) ; needed for mysqlex
-       ))
-    (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 "http://github.com/genenetwork/gn_server/")
-    (synopsis "GN REST server API")
-    (description "REST Server")
-    (license license:agpl3+))))
-
 (define-public python2-qtlreaper
   (let ((commit "442c217b90393380a8634ff8636b44992f5c53dd"))
   (package
@@ -202,7 +123,7 @@ location of a putative QTL.")
   (package
     (name "python-gunicorn-gn")
     (version "19.9.0")
-    (source 
+    (source
       (origin
         (method url-fetch)
         (uri (pypi-uri "gunicorn" version))
@@ -237,7 +158,7 @@ implemented, light on server resource usage, and fairly speedy.")
 
 (define-public python2-gunicorn-gn
   (package-with-python2 python-gunicorn-gn))
-  
+
 
 (define-public rust-qtlreaper
   (let ((commit "2e7fed6d45b0b602d80fa2a55835f96ef1cba9e3")
-- 
cgit v1.2.3