diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-03-11 11:11:53 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-03-11 11:11:53 +0000 |
| commit | 9db755f27d3266ade0f93bbecd694a9531ebad0d (patch) | |
| tree | 733508f5664ddba44358dc466799c2fdbfc6125b /guix-data-service/jobs | |
| parent | 0e3f65062a40bcb6653f743c682ba90b80b68b6b (diff) | |
| download | data-service-9db755f27d3266ade0f93bbecd694a9531ebad0d.tar data-service-9db755f27d3266ade0f93bbecd694a9531ebad0d.tar.gz | |
Disable value history in the inferior repl
This might help reduce memory usage a little.
Diffstat (limited to 'guix-data-service/jobs')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index cdfe8b0..30eadc5 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1079,12 +1079,15 @@ WHERE job_id = $1") #:authenticate? fetch-with-authentication?)))))) (inferior-eval '(use-modules (srfi srfi-1) + (ice-9 history) (guix channels) (guix grafts) (guix profiles)) inferior) (inferior-eval '(%graft? #f) inferior) + (inferior-eval '(disable-value-history!) + inferior) (inferior-eval '(define channel-instance (@@ (guix channels) channel-instance)) inferior) @@ -1249,11 +1252,15 @@ WHERE job_id = $1") (inferior-eval '(use-modules (srfi srfi-1) (srfi srfi-34) + (ice-9 history) (guix grafts) (guix derivations) (gnu tests)) inf) + (inferior-eval '(disable-value-history!) + inf) + ;; For G_ and P_ (or (inferior-eval '(and (resolve-module '(guix i18n) #:ensure #f) (use-modules (guix i18n)) |