changed confusing nomenclature

Handler/Profile.hs

@@ -4,18 +4,17 @@ import Import
 import Data.Maybe
 
 getProfileR :: UserId -> Handler Html
-getProfileR user = do
+getProfileR ownerId = do
-  owner <- runDB $ get user
+  owner <- runDB $ get ownerId
   ownerName <- lift $ pure $ userName $ fromJust owner
-  userAlbs <- runDB $ selectList [AlbumOwner ==. user] [Desc AlbumTitle]
+  userAlbs <- runDB $ selectList [AlbumOwner ==. ownerId] [Desc AlbumTitle]
-  recentMedia <- (runDB $ selectList [MediumOwner ==. user] [Desc MediumTime])
+  recentMedia <- (runDB $ selectList [MediumOwner ==. ownerId] [Desc MediumTime])
   msu <- lookupSession "userId"
-  case msu of
+  presence <- case msu of
     Just tempUserId -> do
       userId <- lift $ pure $ getUserIdFromText tempUserId
-      presence <- lift $ pure $ userId == user
+      return (userId == ownerId)
-      defaultLayout $ do
-        $(widgetFile "profile")
     Nothing ->
+      return False
   defaultLayout $ do
     $(widgetFile "profile")

templates/profile.hamlet

@@ -7,7 +7,7 @@ $else
   Albums of this user:
   $forall (Entity albumId album) <- userAlbs
     <div class="thumbnails">
-      <a href=@{AlbumR user albumId}>
+      <a href=@{AlbumR ownerId albumId}>
         <img width="200px" src="/static/img/album.jpg"><br>
         #{albumTitle album}