me/guix
Archived
1
0
Fork 0
Code Activity

install: Use a low-memory nscd caching policy.

Browse source 
* gnu/system/install.scm (%nscd-minimal-caches): New variable.
  (installation-services): Use as 'nscd-service' argument.
This commit is contained in:
Ludovic Courtès 2014-12-14 17:26:03 +01:00
parent 6454b33345
commit 61ff0a3a18
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/system/install.scm
View file

@ -145,6 +145,14 @@ configuration template file in the installation system."
#~(unless (file-exists? #$local-template) #~(unless (file-exists? #$local-template)
(copy-file #$template #$local-template))))))) (copy-file #$template #$local-template)))))))
(define %nscd-minimal-caches
;; Minimal in-memory caching policy for nscd.
(list (nscd-cache (database 'hosts)
(positive-time-to-live (* 3600 12))
(negative-time-to-live 20)
(persistent? #f)
(max-database-size (* 5 (expt 2 20)))))) ;5 MiB
(define (installation-services) (define (installation-services)
"Return the list services for the installation image." "Return the list services for the installation image."
(let ((motd (text-file "motd" " (let ((motd (text-file "motd" "
@ -206,7 +214,10 @@ You have been warned. Thanks for being so brave.
(console-font-service "tty5") (console-font-service "tty5")
(console-font-service "tty6") (console-font-service "tty6")
(nscd-service)))) ;; Since this is running on a USB stick with a unionfs as the root
;; file system, use an appropriate cache configuration.
(nscd-service (nscd-configuration
(caches %nscd-minimal-caches))))))
(define %issue (define %issue
;; Greeting. ;; Greeting.