From 4b953f85855972ee091173a454418fd38b3f6da4 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 8 May 2016 11:33:53 +0300
Subject: [PATCH] Force less of the Hoogle results #172

---
 Handler/Hoogle.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Hoogle.hs b/Handler/Hoogle.hs
index 4f23636..4caf536 100644
--- a/Handler/Hoogle.hs
+++ b/Handler/Hoogle.hs
@@ -136,7 +136,7 @@ runHoogleQuery heDatabase HoogleQueryInput {..} =
             mcount  = spoon $ limitedLength 0 rawRes
             limitedLength x [] = Just x
             limitedLength x (_:rest)
-                | x >= 100 = Nothing
+                | x >= 20 = Nothing
                 | otherwise = limitedLength (x + 1) rest
             rendered = pack $ Hoogle.showTagHTML $ Hoogle.renderQuery query''
         return $ case (,) <$> mres <*> mcount of