sed /s/dump-genenetwork/transform-genenetwork/g.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 12 insertions, 12 deletions

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 939dda0..e6eee8a 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -646,16 +646,16 @@ described by CONFIG, a <genenetwork-configuration> object."
 
 
 ;;;
-;;; dump-genenetwork-database
+;;; transform-genenetwork-database
 ;;; 
 
 ;; Path to genenetwork database dump export directory that has lots of
 ;; free space
-(define %dump-genenetwork-database-export-directory
+(define %transform-genenetwork-database-export-directory
   "/export/genenetwork-database-dump")
 
 ;; Unreleased version of ccwl that is required by
-;; dump-genenetwork-database for its graphql library.
+;; transform-genenetwork-database for its graphql library.
 (define ccwl
   (let ((commit "02677a508b407779f5991a230341e016deb7f69b")
         (revision "0"))
@@ -709,7 +709,7 @@ described by CONFIG, a <genenetwork-configuration> object."
     (description "run64 is a SRFI-64 test runner for Scheme.")
     (license license:gpl3+)))
 
-(define dump-genenetwork-database-tests
+(define transform-genenetwork-database-tests
   (with-imported-modules (source-module-closure '((genenetwork development-helper))
                                                 #:select? import-module?)
     #~(lambda (source)
@@ -723,7 +723,7 @@ described by CONFIG, a <genenetwork-configuration> object."
             (allow-collisions? #t))
          (list "make" "check")))))
 
-(define (dump-genenetwork-database project)
+(define (transform-genenetwork-database project)
   (with-imported-modules '((guix build utils))
     (with-packages (list ccwl git-minimal gnu-make guile-3.0 guile-dbd-mysql
                          guile-dbi guile-hashing guile-libyaml guile-sparql
@@ -738,9 +738,9 @@ described by CONFIG, a <genenetwork-configuration> object."
                   #$(forge-project-repository project)
                   ".")
           (invoke "make" "-j" (number->string (current-processor-count)))
-          (let ((connection-settings-file #$(string-append %dump-genenetwork-database-export-directory
+          (let ((connection-settings-file #$(string-append %transform-genenetwork-database-export-directory
                                                            "/conn.scm"))
-                (dump-directory #$(string-append %dump-genenetwork-database-export-directory
+                (dump-directory #$(string-append %transform-genenetwork-database-export-directory
                                                  "/dump")))
             (when (file-exists? dump-directory)
               (delete-file-recursively dump-directory))
@@ -775,15 +775,15 @@ described by CONFIG, a <genenetwork-configuration> object."
    (name "transform-genenetwork-database")
    (repository "https://git.genenetwork.org/gn-transform-databases/")
    (ci-jobs (list (forge-laminar-job
-                   (name "dump-genenetwork-database-tests")
+                   (name "transform-genenetwork-database-tests")
                    (run (derivation-job-gexp
                          this-forge-project
                          this-forge-laminar-job
-                         dump-genenetwork-database-tests
+                         transform-genenetwork-database-tests
                          #:guix-daemon-uri %guix-daemon-uri)))
                   (forge-laminar-job
-                   (name "dump-genenetwork-database")
-                   (run (dump-genenetwork-database this-forge-project)))))
+                   (name "transform-genenetwork-database")
+                   (run (transform-genenetwork-database this-forge-project)))))
    (ci-jobs-trigger 'webhook)))
 
 
@@ -1085,7 +1085,7 @@ tissue."
                                                             (passwd:gid (getpw "laminar"))))
                                                    (append (find-files #$%xapian-directory
                                                                        #:directories? #t)
-                                                           (find-files #$%dump-genenetwork-database-export-directory
+                                                           (find-files #$%transform-genenetwork-database-export-directory
                                                                        #:directories? #t))))))
                    (service tissue-service-type
                             (tissue-configuration