00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Retrieve the associated sites for all profiles in one query when rendering the h-card

Browse source
This commit is contained in:
Danielle McLean 2017-10-03 14:21:08 +11:00
parent 1fd650c8da
commit 4023b17e85
Signed by: 00dani
GPG key ID: 3844A6973C6058F1
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/Widget/Hcard.hs
View file

@ -4,13 +4,24 @@
module Widget.Hcard (hcard) where module Widget.Hcard (hcard) where
import Import import Import
import Data.Maybe (fromJust)
import qualified Data.Map as M
import qualified Network.Libravatar as L import qualified Network.Libravatar as L
entityToTuple :: Entity t -> (Key t, t)
entityToTuple (Entity key value) = (key, value)
arrangeProfiles :: M.Map (Key Site) Site -> [Profile] -> [(Site,Profile)]
arrangeProfiles sites profiles = sortBy icon $ zip profileSites profiles
where findSite = fromJust . flip M.lookup sites . profileSiteId
profileSites = findSite <$> profiles
icon = comparing $ siteIcon . fst
hcard :: Entity User -> Widget hcard :: Entity User -> Widget
hcard (Entity userId user) = do hcard (Entity userId user) = do
maybeAvatar <- liftIO $ L.avatarUrl (L.Email $ userEmail user) def { L.optSecure = True, L.optSize = L.Size 512 } maybeAvatar <- liftIO $ L.avatarUrl (L.Email $ userEmail user) def { L.optSecure = True, L.optSize = L.Size 512 }
userProfiles <- handlerToWidget . runDB $ do userProfiles <- handlerToWidget . runDB $ do
profiles <- map entityVal <$> selectList [ProfileUserId ==. userId] [] profiles <- map entityVal <$> selectList [ProfileUserId ==. userId] []
sites <- belongsToJust profileSiteId `mapM` profiles sites <- M.fromList . map entityToTuple <$> selectList [SiteId <-. (profileSiteId <$> profiles)] []
return . sortBy (comparing $ siteIcon . fst) $ zip sites profiles return $ arrangeProfiles sites profiles
$(widgetFile "hcard") $(widgetFile "hcard")