eidolon/Handler/Admin.hs

17 lines
356 B
Haskell
Raw Normal View History

module Handler.Admin where
import Import
2014-12-28 00:08:35 +00:00
import Handler.Commons
getAdminR :: Handler Html
getAdminR = do
2014-12-27 22:09:51 +00:00
adminCheck <- loginIsAdmin
case adminCheck of
Right _ -> do
defaultLayout $ do
setTitle "Administration: Menu"
$(widgetFile "adminBase")
Left (errorMsg, route) -> do
setMessage errorMsg
redirect $ route