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

Force less of the Hoogle results #172

Browse Source
This commit is contained in:
Michael Snoyman 2016-05-08 11:33:53 +03:00
parent 9d0d715894
commit 4b953f8585
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/Hoogle.hs
View File

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