Fix type error when printing straight errors

This commit is contained in:
Henrik Lissner 2021-01-26 22:38:07 -05:00
parent c29bbbc171
commit 2c4b5b2f93

View file

@ -260,8 +260,9 @@ BODY will be run when this dispatcher is called."
(string-match-p (regexp-quote straight-process-buffer)
data))
(print! (error "There was an unexpected package error"))
(print-group!
(print! "%s" (string-trim-right (straight--process-get-output)))))
(when-let (output (straight--process-get-output))
(print-group!
(print! "%s" (string-trim-right output)))))
((print! (error "There was an unexpected error"))
(print-group!
(print! "%s %s" (bold "Message:") (get type 'error-message))