eidolon/Handler/AdminComments.hs

45 lines
1.4 KiB
Haskell
Raw Normal View History

2014-12-22 15:29:10 +00:00
module Handler.AdminComments where
import Import
2014-12-28 00:08:35 +00:00
import Handler.Commons
2014-12-22 15:29:10 +00:00
import Data.Maybe
import Data.Time
import System.Locale
getAdminCommentR :: Handler Html
getAdminCommentR = do
2014-12-27 22:09:51 +00:00
adminCheck <- loginIsAdmin
case adminCheck of
Right _ -> do
media <- runDB $ selectList [] [Desc MediumTime]
comments <- runDB $ selectList [CommentParent ==. Nothing] [Desc CommentTime]
replies <- runDB $ selectList [CommentParent !=. Nothing] [Desc CommentTime]
2015-01-17 13:55:40 +00:00
formLayout $ do
2014-12-27 22:09:51 +00:00
setTitle "Administration: Comments"
$(widgetFile "adminComments")
Left (errorMsg, route) -> do
setMessage errorMsg
redirect $ route
2014-12-22 15:29:10 +00:00
getAdminCommentDeleteR :: CommentId -> Handler Html
getAdminCommentDeleteR commentId = do
2014-12-27 22:09:51 +00:00
adminCheck <- loginIsAdmin
case adminCheck of
Right _ -> do
tempComment <- runDB $ get commentId
case tempComment of
2014-12-28 06:12:25 +00:00
Just _ -> do
2014-12-27 22:09:51 +00:00
-- delete comment children
children <- runDB $ selectList [CommentParent ==. (Just commentId)] []
2014-12-28 06:12:25 +00:00
_ <- mapM (\ent -> runDB $ delete $ entityKey ent) children
2014-12-27 22:09:51 +00:00
-- delete comment itself
runDB $ delete commentId
setMessage "Comment deleted succesfully"
redirect $ AdminR
Nothing -> do
setMessage "This comment does not exist"
redirect $ AdminR
Left (errorMsg, route) -> do
setMessage errorMsg
redirect $ route