diff options
| -rw-r--r-- | genenetwork-development.scm | 33 | ||||
| -rw-r--r-- | services/README.md | 17 | ||||
| -rw-r--r-- | services/gn-guile.scm | 52 |
3 files changed, 101 insertions, 1 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm index e18b317..7f727ca 100644 --- a/genenetwork-development.scm +++ b/genenetwork-development.scm @@ -700,8 +700,39 @@ described by CONFIG, a <genenetwork-configuration> object." ;;; +;;; qc +;;; + +(define qc-tests + (with-imported-modules (cons '(guix build lisp-utils) + (source-module-closure '((genenetwork development-helper)) + #:select? import-module?)) + #~(lambda (source) + ((@@ (genenetwork development-helper) + asdf-test-gexp) + source + #$(profile + (content (package->development-manifest sbcl-qc)) + (allow-collisions? #t)) + "qc" (list "qc.asd"))))) + +(define qc-project + (forge-project + (name "qc") + (repository "https://git.genenetwork.org/jgart/qc") + (ci-jobs (list (forge-laminar-job + (name "qc") + (run (derivation-job-gexp + this-forge-project + this-forge-laminar-job + qc-tests + #:guix-daemon-uri %guix-daemon-uri))))) + (ci-jobs-trigger 'webhook))) + + +;;; ;;; transform-genenetwork-database -;;; +;;; ;; Path to genenetwork database dump export directory that has lots of ;; free space diff --git a/services/README.md b/services/README.md new file mode 100644 index 0000000..d0d1c01 --- /dev/null +++ b/services/README.md @@ -0,0 +1,17 @@ +# Services + +This directory contains small and simple services that may be run independently. +Note that composition is not the goal. +For example, databases and web proxies are handled outsite the containers. +Use these services for simple deployment and ad hoc testing. +One nice aspect of small system containers is that you can run these easily on your laptop. + +IMPORTANT: more complex services do not belong in this directory. + +# Examples + +## gn-guile + +`gn-guile` is our next generation service (gn4?). It provides a REST API, at this point, and some portals, such as https://aging.genenetwork.org/. + +See the [gn-guile](./gn-guile.scm) system definition example. diff --git a/services/gn-guile.scm b/services/gn-guile.scm new file mode 100644 index 0000000..2f675a8 --- /dev/null +++ b/services/gn-guile.scm @@ -0,0 +1,52 @@ +;; This is an example definition for the gn-guile/GN4 service +;; +;; Run with +;; +;; export runner=$(guix system container gn-guile.scm) +;; +;; as root +;; +;; sudo bash -c $runner +;; echo $runner +;; +;; make a note of pid and +;; +;; sudo bash -c "nsenter -a -t 4050285" +;; +;; now you should be inside the container (note bash should be in the container!) + +(use-modules (gnu) + (guix records) + (forge utils)) + +(define-record-type* <gn-guile-configuration> + gn-guile-configuration make-gn-guile-configuration + gn-guile-configuration? + (gn2-repository gn-guile-configuration-gn2-repository + (default "https://github.com/genenetwork/genenetwork2")) + (gn2-port gn-guile-configuration-gn2-port + (default 8082))) + + +(define gn-guile-service-type + (service-type + (name 'gn-guile) + (description "gn-guile/GN4 webservice") + (extensions '()) + )) + +(operating-system + (host-name "gn-guile") + (timezone "UTC") + (locale "en_US.utf8") + (bootloader (bootloader-configuration + (bootloader grub-bootloader) + (targets (list "/dev/sdX")))) + (file-systems %base-file-systems) + (users %base-user-accounts) + (packages %base-packages) + + (services (cons + (service gn-guile-service-type + (gn-guile-configuration)) + %base-services))) |