max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat(emacs/lean-server): print out entire server response on error

Browse source
This commit is contained in:
Sebastian Ullrich 2017-01-19 23:00:10 +01:00 • committed by Leonardo de Moura
parent cc1553d901
commit 3f65690706
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/emacs/lean-server.el
View file

@ -52,13 +52,15 @@
(when (car cb) (funcall (car cb) res))))))
(defun lean-server-process-line (sess line)
(with-demoted-errors "error in lean-server command handler: %s"
(lean-debug "server=> %s" line)
(let* ((json-array-type 'list)
(json-object-type 'plist)
(json-false nil)
(response (json-read-from-string line)))
(lean-server-process-response sess response))))
(condition-case-unless-debug err
(progn
(lean-debug "server=> %s" line)
(let* ((json-array-type 'list)
(json-object-type 'plist)
(json-false nil)
(response (json-read-from-string line)))
(lean-server-process-response sess response)))
(error (message "error in lean-server command handler: %s\nServer response was:\n%s" err (buffer-string)))))
(defun lean-server-process-buffer (sess)
(goto-char (point-min))