album site

Handler/Album.hs

@@ -0,0 +1,19 @@
+module Handler.Album where
+
+import Import
+
+getAlbumR :: UserId -> AlbumId -> Handler Html
+getAlbumR ownerId albumId = do
+  owner <- runDB $ getJust ownerId
+  ownerName <- lift $ pure $ userName owner
+  album <- runDB $ getJust albumId
+  msu <- lookupSession "userId"
+  presence <- case msu of
+    Just tempUserId -> do
+      userId <- lift $ pure $ getUserIdFromText tempUserId
+      return (userId == ownerId)
+    Nothing -> 
+      return False
+  media <- mapM (\a -> runDB $ getJust a) (albumContent album)
+  defaultLayout $ do
+    $(widgetFile "album")

templates/album.hamlet

@@ -0,0 +1,16 @@
+$newline never
+<h3>#{albumTitle album}
+by <a href=@{ProfileR ownerId}>#{ownerName}</a>
+<br>
+  $if presence == True
+    TODO: direct Upload to this album
+<br>
+  $if null media
+    This album is empty
+  $else
+    Images in this album:
+    $forall (medium) <- media
+      <div class="thumbnails">
+        <a href=#{mediumPath medium}>
+          <img src=#{mediumPath medium}><br>
+            #{mediumTitle medium}