From b0a390360045c7c29a17593c76611bcb96d66984 Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Mon, 5 Jul 2021 01:28:58 -0500
Subject: gn: Add genecup-HEAD.

---
 gn/packages/ratspub.scm | 29 +++++++++++++++++++++++------
 1 file changed, 23 insertions(+), 6 deletions(-)

(limited to 'gn')

diff --git a/gn/packages/ratspub.scm b/gn/packages/ratspub.scm
index 448cda8..9139606 100644
--- a/gn/packages/ratspub.scm
+++ b/gn/packages/ratspub.scm
@@ -1,5 +1,6 @@
 (define-module (gn packages ratspub)
   #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix git)
   #:use-module (guix utils)
   #:use-module (gnu packages)
   #:use-module (guix packages)
@@ -278,12 +279,6 @@ if __name__ == '__main__':
                      (url "https://github.com/hakangunturkun/GeneCup")
                      (commit (string-append "v" version))))
               (file-name (git-file-name name version))
-              ;; Change the port for running the service.
-              (modules '((guix build utils)))
-              (snippet
-               '(begin (substitute* "server.py"
-                         (("4200") "4204"))
-                       #t))
               (sha256
                (base32 "0krrwnr4yjqpafllwx1xg6cjk1j683bdmkyqq848plzlqx2cl72c"))))
     (build-system python-build-system)
@@ -293,6 +288,12 @@ if __name__ == '__main__':
        (modify-phases %standard-phases
          (delete 'configure)
          (delete 'build)
+         ;; Change the port for running the service.
+         (add-after 'unpack 'use-different-port
+           (lambda _
+             (substitute* "server.py"
+               (("4200") "4204"))
+             #t))
          (add-after 'unpack 'make-files-writable
            (lambda _
              (for-each make-file-writable (find-files "."))))
@@ -401,8 +402,24 @@ into an ontology.  The users create an ontology by identifying categories of
 concepts and a list of keywords for each concept.")
     (license license:expat)))
 
+(define genecup-master
+  (package
+    (inherit genecup)
+    (name "genecup-master")
+    (version "HEAD-of-master-branch")
+    (source
+      (git-checkout
+        (url "https://github.com/hakangunturkun/GeneCup")
+        (branch "master")))))
+
 (define-public genecup-with-tensorflow-native
   (package
     (inherit
       (tensowflow-native-instead-of-tensorflow genecup))
     (name "genecup-with-tensorflow-native")))
+
+(define-public genecup-latest-with-tensorflow-native
+  (package
+    (inherit
+      (tensowflow-native-instead-of-tensorflow genecup-master))
+    (name "genecup-latest-with-tensorflow-native")))
-- 
cgit v1.2.3