haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-31 13:20:26 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use .==. for slug comparison

Browse Source 
@snoyberg Okay, this type checks. E.like requires an IsString
constraint (pity, as Slug is technically string-like, but
smart-constructored)
This commit is contained in:
Chris Done 2014-08-07 16:52:44 +02:00
parent 13bb121027
commit be5a3519c3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Home.hs
View File

@ -1,6 +1,7 @@
{-# LANGUAGE TupleSections, OverloadedStrings #-} {-# LANGUAGE TupleSections, OverloadedStrings #-}
module Handler.Home where module Handler.Home where
import Data.Slug
import qualified Database.Esqueleto as E import qualified Database.Esqueleto as E
import Import import Import
@ -13,11 +14,12 @@ import Import
-- inclined, or create a single monolithic file. -- inclined, or create a single monolithic file.
getHomeR :: Handler Html getHomeR :: Handler Html
getHomeR = do getHomeR = do
fpHandle <- mkSlug "fpcomplete"
stackages <- runDB $ E.select $ E.from $ \(stackage `E.InnerJoin` user) -> do stackages <- runDB $ E.select $ E.from $ \(stackage `E.InnerJoin` user) -> do
E.on (stackage E.^. StackageUser E.==. user E.^. UserId) E.on (stackage E.^. StackageUser E.==. user E.^. UserId)
E.orderBy [E.desc $ stackage E.^. StackageUploaded] E.orderBy [E.desc $ stackage E.^. StackageUploaded]
E.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com") E.||. E.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com") E.||.
E.like (user E.^. UserHandle) (E.val "fpcomplete")) user E.^. UserHandle E.==. E.val fpHandle)
E.limit 4 E.limit 4
return return
( stackage E.^. StackageIdent ( stackage E.^. StackageIdent