From d51ffe8213a668305e28973d82c3202417c0d86b Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Mon, 8 Dec 2014 06:36:38 +0100
Subject: [PATCH] activated comment deletion

---
 templates/medium.hamlet | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/templates/medium.hamlet b/templates/medium.hamlet
index 331fc30..0073a76 100644
--- a/templates/medium.hamlet
+++ b/templates/medium.hamlet
@@ -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}>