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

Revert "Force using only latest Hoogle DBs"

Browse Source 
This reverts commit 68fa14a4bb.
This commit is contained in:
drlkf 2026-03-13 22:09:06 +01:00
parent e84c1a82be
commit 7679addc91
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/Hoogle.hs
View File

@ -23,12 +23,7 @@ getHoogleDB name = track "Handler.Hoogle.getHoogleDB" do
liftIO $ appGetHoogleDB app name
getHoogleR :: SnapName -> Handler Html
getHoogleR name0 = track "Handler.Hoogle.getHoogleR" do
let branch =
case name0 of
SNLts _ _ -> LtsBranch
SNNightly _ -> NightlyBranch
name <- newestSnapshot branch >>= maybe notFound return
getHoogleR name = track "Handler.Hoogle.getHoogleR" do
Entity _ snapshot <- lookupSnapshot name >>= maybe notFound return
mquery <- lookupGetParam "q"
mPackageName <- lookupGetParam "package"