diff options
| -rw-r--r-- | genenetwork-development.scm | 24 |
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 |