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

Merge 7679addc91 into e84c1a82be

Browse Source
This commit is contained in:
drlkf 2026-03-13 22:40:18 +01:00 committed by GitHub
commit f20a1a3038
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 liftIO $ appGetHoogleDB app name
getHoogleR :: SnapName -> Handler Html getHoogleR :: SnapName -> Handler Html
getHoogleR name0 = track "Handler.Hoogle.getHoogleR" do getHoogleR name = track "Handler.Hoogle.getHoogleR" do
let branch =
case name0 of
SNLts _ _ -> LtsBranch
SNNightly _ -> NightlyBranch
name <- newestSnapshot branch >>= maybe notFound return
Entity _ snapshot <- lookupSnapshot name >>= maybe notFound return Entity _ snapshot <- lookupSnapshot name >>= maybe notFound return
mquery <- lookupGetParam "q" mquery <- lookupGetParam "q"
mPackageName <- lookupGetParam "package" mPackageName <- lookupGetParam "package"