From e2ca5dcfd6ede90e774d564aba8ce587509e6159 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Mon, 21 Jul 2014 12:37:34 +0200
Subject: [PATCH] Limit recommended snapshots to 4 results

---
 Handler/Home.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Handler/Home.hs b/Handler/Home.hs
index ca7ae20..b923991 100644
--- 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