Limit recommended snapshots to 4 results

2026-01-12 04:08:29 +01:00 · 2014-07-21 12:37:34 +02:00 · 2014-07-21 12:37:34 +02:00 · e2ca5dcfd6
commit e2ca5dcfd6
parent a913a7dcd4
1 changed files with 1 additions and 0 deletions
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@ -17,6 +17,7 @@ getHomeR = 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.limit 4
        return
            ( stackage E.^. StackageIdent
            , stackage E.^. StackageTitle