about summary refs log tree commit diff
path: root/web
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2020-08-01T02·32-0400
committerglittershark <grfn@gws.fyi>2020-08-01T02·37+0000
commitc29f60a350f1f6eb728b718fdfad028f7158780f (patch)
tree4b4cb0863bdd4cf4e6953fc53edd483906d0088e /web
parent674dbade27040c0d8e8cbfbd9313afd4866e3e13 (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.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index c43934a20b..4f704ebc24 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))))