- #{commentContent comment} - Delete this comment - $forall (Entity replyId reply) <- replies - $if commentParent reply == Just commentId - $if commentOrigin reply == mediumId -
- #{commentContent reply} - Delete this comment +$else + $forall (Entity mediumId medium) <- media +
+
+ #{mediumTitle medium}
+ $forall (Entity commentId comment) <- comments
+ $if commentOrigin comment == mediumId
+
#{mediumTitle medium}
+ $forall (Entity commentId comment) <- comments
+ $if commentOrigin comment == mediumId
+
+ #{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
+
+ #{commentContent comment}
+ Delete this comment
+ $forall (Entity replyId reply) <- replies
+ $if commentParent reply == Just commentId
+ $if commentOrigin reply == mediumId
+
+ #{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
+
+ #{commentContent reply}
+ Delete this comment
+ #{commentContent comment} + Delete this comment + $forall (Entity replyId reply) <- replies + $if commentParent reply == Just commentId + $if commentOrigin reply == mediumId +
+ #{commentContent reply} + Delete this comment