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

Improve AvatarR performance by only fetching the avatar from the DB, not the whole User

Browse source
This commit is contained in:
Danielle McLean 2017-10-13 22:29:22 +11:00
parent 1e7482b30f
commit 660b17f279
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Handler/Avatars.hs
View file

@ -1,12 +1,17 @@
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Handler.Avatars where module Handler.Avatars where
import Import import Import hiding ( (==.) )
import Model.Cache ( getCached ) import Database.Esqueleto
import Settings.StaticR ( staticR ) import Settings.StaticR ( staticR )
getAvatarR :: UserId -> Handler () getAvatarR :: UserId -> Handler ()
getAvatarR = redirect <=< fmap (avatarR . entityVal) . getCached getAvatarR = responseFrom <=< runDB . select . from . queryAvatar
where avatarR user = staticR ["img", userAvatar user] where responseFrom (a:_) = redirect $ staticR ["img", unValue a]
responseFrom [] = notFound
queryAvatar userId user = do
where_ $ user ^. UserId ==. val userId
return $ user ^. UserAvatar