activated comment deletion

This commit is contained in:
nek0 2014-12-08 06:36:38 +01:00
parent 2446940baf
commit d51ffe8213

View file

@ -36,12 +36,16 @@ $else
$if userId /= Nothing
<hr>
<a href=@{CommentReplyR commentId}>Reply to this comment
$if userId == (commentAuthor comment)
<a href=@{CommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId
<pre class="reply">
<a href=@{ProfileR $ fromJust $ commentAuthor reply}>#{fromJust $ commentAuthorSlug reply}</a> wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
<hr>
#{commentContent reply}
$if userId == (commentAuthor comment)
<a href=@{CommentDeleteR commentId}>Delete this comment
$if userId /= Nothing
<form method=post enctype=#{enctype}>