diff options
author | Griffin Smith <grfn@gws.fyi> | 2020-08-01T02·32-0400 |
---|---|---|
committer | glittershark <grfn@gws.fyi> | 2020-08-01T02·37+0000 |
commit | c29f60a350f1f6eb728b718fdfad028f7158780f (patch) | |
tree | 4b4cb0863bdd4cf4e6953fc53edd483906d0088e /web | |
parent | 674dbade27040c0d8e8cbfbd9313afd4866e3e13 (diff) |
fix(web/panettone): Don't try to markdownify events r/1517
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 <mail@tazj.in>
Diffstat (limited to 'web')
-rw-r--r-- | web/panettone/src/panettone.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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)))) |