$newline never

Comments by medium $if null comments

There are no comments yet $else $forall (Entity mediumId medium) <- media

      

#{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