error in admin comment interface

This commit is contained in:
nek0 2015-01-17 14:58:39 +01:00
parent 734f3f8d35
commit 515e94c82f

View file

@ -8,23 +8,23 @@ $if null comments
<div id="header" class="item"> <div id="header" class="item">
<div class="inner"> <div class="inner">
<p>There are no comments yet <p>There are no comments yet
$else
$forall (Entity mediumId medium) <- media $forall (Entity mediumId medium) <- media
<div id="header" class="item"> <div id="header" class="item">
<div class="inner"> <div class="inner">
<h3>#{mediumTitle medium} <h3>#{mediumTitle medium}
$forall (Entity commentId comment) <- comments $forall (Entity commentId comment) <- comments
$if commentOrigin comment == mediumId $if commentOrigin comment == mediumId
<article class="comment"> <article class="comment">
#{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}: #{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
<hr> <hr>
#{commentContent comment} #{commentContent comment}
<a href=@{AdminCommentDeleteR commentId}>Delete this comment <a href=@{AdminCommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies $forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId $if commentParent reply == Just commentId
$if commentOrigin reply == mediumId $if commentOrigin reply == mediumId
<article class="comment reply"> <article class="comment reply">
#{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}: #{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
<hr> <hr>
#{commentContent reply} #{commentContent reply}
<a href=@{AdminCommentDeleteR replyId}>Delete this comment <a href=@{AdminCommentDeleteR replyId}>Delete this comment