added admin comment interface

Application.hs

@@ -45,6 +45,7 @@ import Handler.Admin
 import Handler.AdminProfileSettings
 import Handler.AdminAlbumSettings
 import Handler.AdminMediumSettings
+import Handler.AdminComments
 import Handler.Tag
 import Handler.RootFeed
 

config/routes

@@ -37,7 +37,10 @@
 /admin/album/#AlbumId/delete	AdminAlbumDeleteR	GET
 /admin/medium			AdminMediaR		GET
 /admin/medium/#MediumId		AdminMediumSettingsR	GET POST
-/admin/meidum/#MediumId/delete	AdminMediumDeleteR	GET
+/admin/medium/#MediumId/delete	AdminMediumDeleteR	GET
+/admin/comment			AdminCommentR		GET
+/admin/comment/#CommentId	AdminCommentDeleteR	GET
+
 /tag/#Text TagR GET
 
 /feed/root/atom.xml		RootFeedAtomR		GET

eidolon.cabal

@@ -38,6 +38,7 @@ library
                      Handler.AdminProfileSettings
                      Handler.AdminAlbumSettings
                      Handler.AdminMediumSettings
+                     Handler.AdminComments
                      Handler.Tag
                      Handler.RootFeed
 

templates/adminBase.hamlet

@@ -11,3 +11,5 @@ $newline always
     <a href=@{AdminAlbumsR}>Albums
   <li>
     <a href=@{AdminMediaR}>Media
+  <li>
+    <a href=@{AdminCommentR}>Comments

templates/commentDelete.hamlet

@@ -7,4 +7,4 @@ $newline always
 <form method="POST" action=@{CommentDeleteR commentId}>
   <label for="confirm">Really delete this comment
   <input type="checkbox" id="confirm" name="confirm" value="confirm" required>
-  <input id="delete" type="submit" value="Delete medium">
+  <input id="delete" type="submit" value="Delete comment">