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

Limit recommended snapshots to 4 results

Browse Source
This commit is contained in:
Chris Done 2014-07-21 12:37:34 +02:00
parent a913a7dcd4
commit e2ca5dcfd6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/Home.hs
View File

@ -17,6 +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.where_ (E.like (user E.^. UserDisplay) (E.val "%@fpcomplete.com"))
E.limit 4
return return
( stackage E.^. StackageIdent ( stackage E.^. StackageIdent
, stackage E.^. StackageTitle , stackage E.^. StackageTitle