profilesite working

Handler/Profile.hs

@@ -7,7 +7,7 @@ getProfileR :: UserId -> Handler Html
 getProfileR user = do
   owner <- runDB $ get user
   ownerName <- lift $ pure $ userName $ fromJust owner
-  userAlbums <- runDB $ selectList [AlbumOwner ==. user] [Desc AlbumTitle]
+  userAlbs <- runDB $ selectList [AlbumOwner ==. user] [Desc AlbumTitle]
   recentMedia <- (runDB $ selectList [MediumOwner ==. user] [Desc MediumTime])
   msu <- lookupSession "userId"
   case msu of
@@ -16,3 +16,6 @@ getProfileR user = do
       presence <- lift $ pure $ userId == user
       defaultLayout $ do
         $(widgetFile "profile")
+    Nothing ->
+      defaultLayout $ do
+        $(widgetFile "profile")

templates/profile.hamlet

@@ -1,12 +1,15 @@
 $newline always
 <h3>Profile of #{ownerName}
 
-$if null userAlbums
+$if null userAlbs
   This user has no albums yet
 $else
   Albums of this user:
-  $forall (Entity albumId album) <- userAlbums
+  $forall (Entity albumId album) <- userAlbs
     <div class="thumbnails">
+      <a href=@{AlbumR user albumId}>
+        <img width="200px" src="/static/img/album.jpg"><br>
+        #{albumTitle album}
 
 $if null recentMedia
   This user has not uploaded any images