haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-05-09 20:55:25 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge 7679addc91 into 3de34d60a0

Browse Source
This commit is contained in:
drlkf 2026-04-23 15:05:22 +00:00 committed by GitHub
commit 12ac7f0fef
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
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"