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

Use @fpcomplete (for local) or fpcomplete for production

Browse Source 
@snoyberg
This commit is contained in:
Chris Done 2014-08-07 16:45:10 +02:00
parent 92042ed193
commit 617b14049e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Handler/Home.hs
View File

@ -16,7 +16,8 @@ getHomeR = do
stackages <- runDB $ E.select $ E.from $ \(stackage `E.InnerJoin` user) -> do
E.on (stackage E.^. StackageUser E.==. user E.^. UserId)
E.orderBy [E.desc $ stackage E.^. StackageUploaded]
E.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com"))
E.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com") E.||.
E.like (user E.^. UserDisplay) (E.val "fpcomplete"))
E.limit 4
return
( stackage E.^. StackageIdent