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

Use user handle

Browse Source 
@snoyberg Actually, rather, this?
This commit is contained in:
Chris Done 2014-08-07 16:47:41 +02:00
parent 617b14049e
commit 13bb121027
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Home.hs
View File

@ -17,7 +17,7 @@ getHomeR = 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.^. UserDisplay) (E.val "fpcomplete")) E.like (user E.^. UserHandle) (E.val "fpcomplete"))
E.limit 4 E.limit 4
return return
( stackage E.^. StackageIdent ( stackage E.^. StackageIdent