aboutsummaryrefslogtreecommitdiff
path: root/genenetwork/development-helper.scm
diff options
context:
space:
mode:
Diffstat (limited to 'genenetwork/development-helper.scm')
-rw-r--r--genenetwork/development-helper.scm47
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)))))