cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set a statement timeout of 60 seconds for web requests

Browse source 
This will help stop queries running for an unnecessarily long time, longer
than NGinx will wait for example.
This commit is contained in:
Christopher Baines 2020-04-24 09:00:20 +01:00
parent 0cc78b90ae
commit a0263a0eae
3 changed files with 38 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

22
scripts/guix-data-service.in
View file

@ -82,8 +82,13 @@
(lambda (opt name arg result)
(alist-cons 'host
arg
(alist-delete 'host result))))))
(alist-delete 'host result))))
(option '("postgresql-statement-timeout") #t #f
(lambda (opt name arg result)
(alist-cons 'postgresql-statement-timeout
(string->number arg)
(alist-delete 'postgresql-statement-timeout
result))))))
(define %default-options
;; Alist of default option values
@ -97,7 +102,9 @@
("" #f)
(_ #t)))
(port . 8765)
(host . "0.0.0.0")))
(host . "0.0.0.0")
(postgresql-statement-timeout . 60000)))
(define (parse-options args)
(args-fold
@ -187,6 +194,9 @@
(assq-ref opts 'host)
(assq-ref opts 'port))
(start-guix-data-service-web-server (assq-ref opts 'port)
(assq-ref opts 'host)
(assq-ref opts 'secret-key-base))))
(start-guix-data-service-web-server
(assq-ref opts 'port)
(assq-ref opts 'host)
(assq-ref opts 'secret-key-base)
#:postgresql-statement-timeout
(assq-ref opts 'postgresql-statement-timeout))))