haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove the timeouts, hope for the best

Browse Source
This commit is contained in:
Michael Snoyman 2020-11-13 11:08:02 +02:00
parent dcb1485e50
commit 54e475e43e
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Handler/Package.hs
View File

@ -80,15 +80,13 @@ packagePage mspi pname =
mspi' <-
case mspi of
Just spi -> pure $ Just spi
Nothing ->
fmap join $ timeout 2000000 $ getSnapshotPackageLatestVersion pname
Nothing -> getSnapshotPackageLatestVersion pname
case mspi' of
Nothing -> do
mmhci <- timeout 2000000 $ run $ getHackageLatestVersion pname
case mmhci of
Nothing -> error "Getting latest version timed out"
Just Nothing -> notFound
Just (Just hci) -> handlePackage $ Left hci
mhci <- run $ getHackageLatestVersion pname
case mhci of
Nothing -> notFound
(Just hci) -> handlePackage $ Left hci
Just spi -> handlePackage $ Right spi
@ -97,14 +95,13 @@ handlePackage epi = do
(isDeprecated, inFavourOf, snapInfo, PackageInfo{..}) <- do
(isDeprecated, inFavourOf) <- run $ getDeprecatedQuery pname
snapInfo <- case epi of
Right spi -> Right <$> timeout 2000000 (run $ getSnapshotPackagePageInfoQuery spi maxDisplayedDeps)
Right spi -> Right <$> run (getSnapshotPackagePageInfoQuery spi maxDisplayedDeps)
Left hci -> pure $ Left hci
pinfo <- run $ getPackageInfoQuery epi
pure (isDeprecated, inFavourOf, snapInfo, pinfo)
(msppi, mhciLatest) <- case snapInfo of
Left hci -> pure (Nothing, Just hci)
Right (Just sppi) -> pure (Just sppi, sppiLatestHackageCabalInfo sppi)
Right Nothing -> pure (Nothing, Nothing)
Right sppi -> pure (Just sppi, sppiLatestHackageCabalInfo sppi)
let authors = enumerate piAuthors
maintainers =
let ms = enumerate piMaintainers