diff options
author | Ludovic Courtès <ludo@gnu.org> | 2019-04-16 10:26:46 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-16 17:30:21 +0200 |
commit | 3961edf2304bcff4c402a29868f8c559a03c0663 (patch) | |
tree | ecf18e83bd454f75e1ca12dc21554f7193e21296 /guix/download.scm | |
parent | b744862704241f2ceb5b64fabccf5bff2a8fd781 (diff) | |
download | patches-3961edf2304bcff4c402a29868f8c559a03c0663.tar patches-3961edf2304bcff4c402a29868f8c559a03c0663.tar.gz |
store: Memoize 'built-in-builders' call directly in <store-connection>.
The caching strategy introduced in
40cc850aebb497faed0a11d867d8fcee729023df was ineffective since we
regularly start from an empty object cache. For example, "guix build
inkscape -n" would make 241 'built-in-builders' RPCs.
* guix/store.scm (<store-connection>)[built-in-builders]: New field.
(open-connection): Adjust '%make-store-connection' call accordingly.
(port->connection): Likewise.
(built-in-builders): Rename to...
(%built-in-builders): ... this.
(built-in-builders): New procedure.
* guix/download.scm (built-in-builders*): Remove 'mcached' call.
Diffstat (limited to 'guix/download.scm')
-rw-r--r-- | guix/download.scm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/guix/download.scm b/guix/download.scm index 8865777818..11984cf671 100644 --- a/guix/download.scm +++ b/guix/download.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> @@ -415,11 +415,7 @@ (object->string %content-addressed-mirrors))) (define built-in-builders* - (let ((proc (store-lift built-in-builders))) - (lambda () - "Return, as a monadic value, the list of built-in builders supported by -the daemon; cache the return value." - (mcached (proc) built-in-builders)))) + (store-lift built-in-builders)) (define* (built-in-download file-name url #:key system hash-algo hash |