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.scm37
1 files changed, 0 insertions, 37 deletions
diff --git a/genenetwork/development-helper.scm b/genenetwork/development-helper.scm
index 4e8c62b..7602eb0 100644
--- a/genenetwork/development-helper.scm
+++ b/genenetwork/development-helper.scm
@@ -64,40 +64,3 @@ items."
(%lisp-type "sbcl"))
(test-system #$system '#$asd-files #f))
(mkdir-p #$output)))))
-
-(define (genenetwork-lint-gexp source-repo-checkout profile files-and-modules)
- "Return a G-expression that runs GeneNetwork3 lint tests in PROFILE
-with SOURCE-REPO-CHECKOUT as the current directory. SOURCE-REPO-CHECKOUT
-is a checkout of the genenetwork3 source code. PROFILE is a profile
-with genenetwork3 dependencies."
- (with-imported-modules '((guix build utils))
- (with-profile profile
- #~(begin
- (use-modules (rnrs exceptions)
- (srfi srfi-26)
- (ice-9 rdelim)
- (guix build utils))
-
- (define (shell-script? filename stat-obj)
- (and (eq? (stat:type stat-obj) 'regular)
- (call-with-input-file filename
- (lambda (port)
- (let ((first-line (read-line port)))
- (and (not (eof-object? first-line))
- (> (string-length first-line) 2)
- (string=? (string-take first-line 2) "#!")
- (or (string-contains first-line "/bin/sh")
- (string-contains first-line "/bin/bash"))))))))
-
- (chdir #$source-repo-checkout)
- (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)))
- (for-each (cut invoke "shellcheck" <>)
- (find-files "." shell-script?))
- (invoke "pylint" #$@files-and-modules))
- (mkdir-p #$output)))))