eidolon/Handler/Album.hs
2014-08-18 06:07:10 +02:00

26 lines
744 B
Haskell

module Handler.Album where
import Import
getAlbumR :: AlbumId -> Handler Html
getAlbumR albumId = do
tempAlbum <- runDB $ get albumId
case tempAlbum of
Just album -> do
ownerId <- return $ albumOwner album
owner <- runDB $ getJust ownerId
ownerName <- return $ userName owner
msu <- lookupSession "userId"
presence <- case msu of
Just tempUserId -> do
userId <- return $ getUserIdFromText tempUserId
return (userId == ownerId)
Nothing ->
return False
media <- mapM (\a -> runDB $ getJust a) (albumContent album)
defaultLayout $ do
$(widgetFile "album")
Nothing -> do
setMessage "This album does not exist"
redirect $ HomeR