diff options
| author | Alex Kost <alezost@gmail.com> | 2018-08-19 23:32:57 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-08-20 12:09:01 +0300 |
| commit | e6a812ac3002f22bccf75e39b015bcef7a89cd0c (patch) | |
| tree | 07860df0654309f2e1c78cb33578f333824e280f /build-farm-url.el | |
| parent | build: Add "More info" button when needed (diff) | |
| download | emacs-build-farm-e6a812ac3002f22bccf75e39b015bcef7a89cd0c.tar.gz | |
url: Use nil for 'json-false' value
* build-farm-url.el (build-farm-receive-data): Let-bind 'json-false' as
its default value is ':json-false'.
Diffstat (limited to 'build-farm-url.el')
| -rw-r--r-- | build-farm-url.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/build-farm-url.el b/build-farm-url.el index ac5305f..909be4c 100644 --- a/build-farm-url.el +++ b/build-farm-url.el @@ -211,14 +211,15 @@ also raises an error if URL has not been retrieved properly." ;; does not return json data from "non-api" URLs. (if (eq (build-farm-url-type) 'cuirass) (error "Sorry, Cuirass does not support this API") - (error "\ + (error "\ The server has not returned 'application/json' content type. Perhaps, API has changed:\n%s" - url))) + url))) (with-temp-buffer (url-insert-buffer-contents url-buffer url) (goto-char (point-min)) - (let ((json-key-type 'symbol) + (let ((json-false nil) ; default value is `:json-false' + (json-key-type 'symbol) (json-array-type 'list) (json-object-type 'alist)) (json-read))))) |