error in admin comment interface
This commit is contained in:
parent
734f3f8d35
commit
515e94c82f
1 changed files with 20 additions and 20 deletions
|
@ -8,23 +8,23 @@ $if null comments
|
|||
<div id="header" class="item">
|
||||
<div class="inner">
|
||||
<p>There are no comments yet
|
||||
|
||||
$forall (Entity mediumId medium) <- media
|
||||
<div id="header" class="item">
|
||||
<div class="inner">
|
||||
<h3>#{mediumTitle medium}
|
||||
$forall (Entity commentId comment) <- comments
|
||||
$if commentOrigin comment == mediumId
|
||||
<article class="comment">
|
||||
#{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
|
||||
<hr>
|
||||
#{commentContent comment}
|
||||
<a href=@{AdminCommentDeleteR commentId}>Delete this comment
|
||||
$forall (Entity replyId reply) <- replies
|
||||
$if commentParent reply == Just commentId
|
||||
$if commentOrigin reply == mediumId
|
||||
<article class="comment reply">
|
||||
#{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
|
||||
<hr>
|
||||
#{commentContent reply}
|
||||
<a href=@{AdminCommentDeleteR replyId}>Delete this comment
|
||||
$else
|
||||
$forall (Entity mediumId medium) <- media
|
||||
<div id="header" class="item">
|
||||
<div class="inner">
|
||||
<h3>#{mediumTitle medium}
|
||||
$forall (Entity commentId comment) <- comments
|
||||
$if commentOrigin comment == mediumId
|
||||
<article class="comment">
|
||||
#{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
|
||||
<hr>
|
||||
#{commentContent comment}
|
||||
<a href=@{AdminCommentDeleteR commentId}>Delete this comment
|
||||
$forall (Entity replyId reply) <- replies
|
||||
$if commentParent reply == Just commentId
|
||||
$if commentOrigin reply == mediumId
|
||||
<article class="comment reply">
|
||||
#{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
|
||||
<hr>
|
||||
#{commentContent reply}
|
||||
<a href=@{AdminCommentDeleteR replyId}>Delete this comment
|
||||
|
|
Loading…
Reference in a new issue