diff --git a/Handler/Medium.hs b/Handler/Medium.hs index e2b0b54..70a9585 100644 --- a/Handler/Medium.hs +++ b/Handler/Medium.hs @@ -12,6 +12,8 @@ getMediumR mediumId = do ownerId <- return $ mediumOwner medium owner <- runDB $ getJust ownerId ownerName <- return $ userName owner + albumId <- return $ mediumAlbum medium + album <- runDB $ getJust albumId msu <- lookupSession "userId" presence <- case msu of Just tempUserId -> do diff --git a/templates/album.hamlet b/templates/album.hamlet index 91987d8..d048c30 100644 --- a/templates/album.hamlet +++ b/templates/album.hamlet @@ -11,8 +11,10 @@ by #{ownerName} This album is empty $else Images in this album: - $forall (Entity mediumId medium) <- media -
- -
- #{mediumTitle medium} +