aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--genenetwork-development.scm24
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