From 515e94c82fe8b18bc4920b74cd3e7324911c313f Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 17 Jan 2015 14:58:39 +0100
Subject: [PATCH] error in admin comment interface

---
 templates/adminComments.hamlet | 40 +++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/templates/adminComments.hamlet b/templates/adminComments.hamlet
index c13c9c4..5c33b7e 100644
--- a/templates/adminComments.hamlet
+++ b/templates/adminComments.hamlet
@@ -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