22 lines
540 B
Haskell
22 lines
540 B
Haskell
|
module Handler.Admin where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
|
||
|
|
getAdminR :: Handler Html
|
||
|
|
getAdminR = do
|
||
|
|
msu <- lookupSession "userId"
|
||
|
|
case msu of
|
||
|
|
Just tempUserId -> do
|
||
|
|
userId <- return $ getUserIdFromText tempUserId
|
||
|
|
user <- runDB $ getJust userId
|
||
|
|
case userAdmin user of
|
||
|
|
True -> do
|
||
|
|
defaultLayout $ do
|
||
|
|
$(widgetFile "adminBase")
|
||
|
|
False -> do
|
||
|
|
setMessage "You have no admin rights"
|
||
|
|
redirect $ HomeR
|
||
|
|
Nothing -> do
|
||
|
|
setMessage "You are not logged in"
|
||
|
|
redirect $ LoginR
|