replies to comments now reside in the same div as the parent

This commit is contained in:
nek0 2017-01-07 17:02:49 +01:00
parent fe23382d22
commit 6a34da30fd
2 changed files with 10 additions and 9 deletions

View file

@ -1,5 +1,5 @@
name: eidolon
version: 0.1.8.0
version: 0.1.8.1
synopsis: Image gallery in Yesod
homepage: https://eidolon.nek0.eu
license: AGPL-3

View file

@ -53,15 +53,16 @@
<a href=@{CommentReplyR commentId}>Reply to this comment
$if userId == (Just $ commentAuthor comment)
<a href=@{CommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId
<div .comment .reply .medium>
<a href=@{ProfileR $ commentAuthor reply}>#{fromMaybe "" $ lookup (commentAuthor reply) authors}</a> replied on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
$forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId
<hr>
#{commentContent reply}
<hr>
$if userId == (Just $ commentAuthor reply)
<a href=@{CommentDeleteR replyId}>Delete this comment
<div .comment .reply>
<a href=@{ProfileR $ commentAuthor reply}>#{fromMaybe "" $ lookup (commentAuthor reply) authors}</a> replied on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
<hr>
#{commentContent reply}
<hr>
$if userId == (Just $ commentAuthor reply)
<a href=@{CommentDeleteR replyId}>Delete this comment
$if userId /= Nothing
<div .medium>