eidolon/Handler/Profile.hs

module Handler.Profile where

import Import
import Data.Maybe

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

getUserR :: Text -> Handler Html
getUserR ownerName = do
  tempOwner <- runDB $ selectFirst [UserName ==. ownerName] []
  case tempOwner of
    Just (Entity ownerId owner) ->
      getProfileR ownerId
    Nothing -> do
      setMessage "This user does not exist"
      redirect $ HomeR