From e152c8dd8694810d7d4c8cbbd241e80ff2b5c565 Mon Sep 17 00:00:00 2001 From: Frederick Muriuki Muriithi Date: Mon, 11 Mar 2024 03:18:45 +0300 Subject: Rename module --- .guix/modules/gn-uploader.scm | 46 +++++++++++++++++++++++++++++++++++++++++++ .guix/modules/gnqc-py.scm | 46 ------------------------------------------- 2 files changed, 46 insertions(+), 46 deletions(-) create mode 100644 .guix/modules/gn-uploader.scm delete mode 100644 .guix/modules/gnqc-py.scm diff --git a/.guix/modules/gn-uploader.scm b/.guix/modules/gn-uploader.scm new file mode 100644 index 0000000..4e198fa --- /dev/null +++ b/.guix/modules/gn-uploader.scm @@ -0,0 +1,46 @@ +(define-module (gn-uploader) + #:use-module (guix gexp) + #:use-module (guix utils) + #:use-module (guix packages) + #:use-module (guix git-download) + + #:use-module ((gnu packages check) #:select (python-pylint)) + #:use-module ((gnu packages python-check) #:select (python-mypy)) + + #:use-module ((gn packages genenetwork) #:select (gn-uploader) #:prefix gn:)) + +(define %source-dir (dirname (dirname (current-source-directory)))) + +(define vcs-file? + (or (git-predicate %source-dir) + (const #t))) + +(define-public gn-uploader + (package + (inherit gn:gn-uploader) + (source + (local-file "../.." + "gn-uploader-checkout" + #:recursive? #t + #:select? vcs-file?)))) + +(define-public gn-uploader-all-tests + (package + (inherit gn-uploader) + (arguments + (substitute-keyword-arguments (package-arguments gn-uploader) + ((#:phases #~%standard-phases) + #~(modify-phases #$phases + (add-before 'build 'pylint + (lambda _ + (invoke "pylint" "setup.py" "wsgi.py" "tests" "quality_control" + "qc_app" "r_qtl" "scripts"))) + (add-after 'pylint 'mypy + (lambda _ + (invoke "mypy" "."))))))) + (native-inputs + (modify-inputs (package-native-inputs gn-uploader) + (prepend python-mypy) + (prepend python-pylint))))) + +gn-uploader diff --git a/.guix/modules/gnqc-py.scm b/.guix/modules/gnqc-py.scm deleted file mode 100644 index 4e198fa..0000000 --- a/.guix/modules/gnqc-py.scm +++ /dev/null @@ -1,46 +0,0 @@ -(define-module (gn-uploader) - #:use-module (guix gexp) - #:use-module (guix utils) - #:use-module (guix packages) - #:use-module (guix git-download) - - #:use-module ((gnu packages check) #:select (python-pylint)) - #:use-module ((gnu packages python-check) #:select (python-mypy)) - - #:use-module ((gn packages genenetwork) #:select (gn-uploader) #:prefix gn:)) - -(define %source-dir (dirname (dirname (current-source-directory)))) - -(define vcs-file? - (or (git-predicate %source-dir) - (const #t))) - -(define-public gn-uploader - (package - (inherit gn:gn-uploader) - (source - (local-file "../.." - "gn-uploader-checkout" - #:recursive? #t - #:select? vcs-file?)))) - -(define-public gn-uploader-all-tests - (package - (inherit gn-uploader) - (arguments - (substitute-keyword-arguments (package-arguments gn-uploader) - ((#:phases #~%standard-phases) - #~(modify-phases #$phases - (add-before 'build 'pylint - (lambda _ - (invoke "pylint" "setup.py" "wsgi.py" "tests" "quality_control" - "qc_app" "r_qtl" "scripts"))) - (add-after 'pylint 'mypy - (lambda _ - (invoke "mypy" "."))))))) - (native-inputs - (modify-inputs (package-native-inputs gn-uploader) - (prepend python-mypy) - (prepend python-pylint))))) - -gn-uploader -- cgit v1.2.3