diff options
author | Arun Isaac | 2023-12-20 09:54:36 +0000 |
---|---|---|
committer | Arun Isaac | 2023-12-20 10:22:52 +0000 |
commit | e340a5aae98cc0cb5b6ca8a42e0a61dc55fb184f (patch) | |
tree | fa47a9eaf03149e7927bc9878848b5fb86bc3998 /genenetwork | |
parent | aaf6750858e061e5f5740fb1edbc49b68b3c4717 (diff) | |
download | gn-machines-e340a5aae98cc0cb5b6ca8a42e0a61dc55fb184f.tar.gz |
Use guix-channel-job-gexp for gn-transform-databases CI job.
* genenetwork-development.scm: Import (guix ci).
(transform-genenetwork-database-tests): Delete variable.
(%default-guix-channel-with-substitutes): New variable.
(transform-genenetwork-database-project): Use guix-channel-job-gexp
for transform-genenetwork-database-tests CI job.
* genenetwork/development-helper.scm: Delete file.
Diffstat (limited to 'genenetwork')
-rw-r--r-- | genenetwork/development-helper.scm | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/genenetwork/development-helper.scm b/genenetwork/development-helper.scm deleted file mode 100644 index 20edfbf..0000000 --- a/genenetwork/development-helper.scm +++ /dev/null @@ -1,47 +0,0 @@ -;;; genenetwork-machines --- Guix configuration for genenetwork machines -;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> -;;; Copyright © 2022 Frederick Muriuki Muriithi <fredmanglis@gmail.com> -;;; -;;; This file is part of genenetwork-machines. -;;; -;;; genenetwork-machines is free software: you can redistribute it -;;; and/or modify it under the terms of the GNU General Public License -;;; as published by the Free Software Foundation, either version 3 of -;;; the License, or (at your option) any later version. -;;; -;;; genenetwork-machines is distributed in the hope that it will be -;;; useful, but WITHOUT ANY WARRANTY; without even the implied -;;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -;;; See the GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with genenetwork-machines. If not, see -;;; <https://www.gnu.org/licenses/>. - -(define-module (genenetwork development-helper) - #:use-module (ice-9 match) - #:use-module (guix gexp) - #:use-module (guix profiles) - #:use-module (guix search-paths) - #:use-module (forge build utils)) - -(define (command-in-source-gexp source profile command) - "Return a G-expression that runs COMMAND in PROFILE and with SOURCE -as the current directory. SOURCE and PROFILE are store items. COMMAND -is a list of strings specifying the command to be executed." - (with-imported-modules '((guix build utils)) - (with-profile profile - #~(begin - (use-modules (rnrs exceptions) - (guix build utils)) - - (chdir #$source) - (guard (condition ((invoke-error? condition) - (format (current-error-port) - "`~a~{ ~a~}' failed with exit status ~a~%" - (invoke-error-program condition) - (invoke-error-arguments condition) - (invoke-error-exit-status condition)) - (exit #f))) - (apply invoke '#$command)) - (mkdir-p #$output))))) |