#{commentContent comment} Delete this comment @@ -24,7 +24,7 @@ $else $if commentParent reply == Just commentId $if commentOrigin reply == mediumId
#{commentContent reply} Delete this comment diff --git a/templates/commentReply.hamlet b/templates/commentReply.hamlet index 24bbf8d..0e09820 100644 --- a/templates/commentReply.hamlet +++ b/templates/commentReply.hamlet @@ -1,7 +1,7 @@
Reply to comment
- #{fromJust $ commentAuthorSlug comment} posted on #{formatTime defaultTimeLocale "%A %F %H:%M" (commentTime comment)}:
+ #{commentAuthorSlug comment} posted on #{formatTime defaultTimeLocale "%A %F %H:%M" (commentTime comment)}:
#{commentContent comment}
diff --git a/templates/medium.hamlet b/templates/medium.hamlet index ff1a3bb..da0306d 100644 --- a/templates/medium.hamlet +++ b/templates/medium.hamlet @@ -38,22 +38,22 @@ $forall (Entity commentId comment) <- comments
#{commentContent comment} $if userId /= Nothing
Reply to this comment - $if userId == (commentAuthor comment) + $if userId == (Just $ commentAuthor comment) Delete this comment $forall (Entity replyId reply) <- replies $if commentParent reply == Just commentId
#{commentContent reply}
- $if userId == (commentAuthor comment) + $if userId == (Just $ commentAuthor comment) Delete this comment $if userId /= Nothing