From c29f60a350f1f6eb728b718fdfad028f7158780f Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Fri, 31 Jul 2020 22:32:42 -0400 Subject: fix(web/panettone): Don't try to markdownify events Events - which are interleaved with comments - don't have bodies, so they can't be converted to markdown. Change-Id: Iba818b95dab59cae5a08c8b4eca94955e11e584b Reviewed-on: https://cl.tvl.fyi/c/depot/+/1509 Tested-by: BuildkiteCI Reviewed-by: tazjin --- web/panettone/src/panettone.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'web/panettone') diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index c43934a20bb9..4f704ebc2430 100644 --- a/web/panettone/src/panettone.lisp +++ b/web/panettone/src/panettone.lisp @@ -46,9 +46,9 @@ (let ((in (make-hash-table)) (comment-table (make-hash-table))) (dolist (comment comments) - (check-type comment model:issue-comment) - (setf (gethash (id comment) in) (body comment)) - (setf (gethash (id comment) comment-table) comment)) + (when (typep comment 'model:issue-comment) + (setf (gethash (id comment) in) (body comment)) + (setf (gethash (id comment) comment-table) comment))) (let ((res (render-markdown in))) (iter (for (comment-id markdown-body) in-hashtable res) (let ((comment-id (parse-integer (symbol-name comment-id)))) -- cgit 1.4.1