Browse Source

Add a timeout

elexandria
Damien Cassou 3 years ago
parent
commit
b4ba40ab29
No known key found for this signature in database GPG Key ID: A7123815F5DCE914
1 changed files with 7 additions and 0 deletions
  1. +7
    -0
      libelcouch.el

+ 7
- 0
libelcouch.el View File

@ -45,6 +45,12 @@
"List of CouchDB instances."
:type 'list)
(defcustom libelcouch-timeout 10
"Timeout in seconds for calls to the CouchDB instance.
Number of seconds before a call to CouchDB without answer is
considered to have failed."
:type 'number)
;;; Structures
@ -145,6 +151,7 @@
"Evaluate function with the children of ENTITY as parameter."
(request
(libelcouch--entity-children-url entity)
:timeout libelcouch-timeout
:headers '(("Content-Type" . "application/json")
("Accept" . "application/json"))
:parser 'json-read


Loading…
Cancel
Save