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

Combine three transactions into a single one

Browse Source
This commit is contained in:
Sibi Prabakaran 2020-07-23 11:28:10 +05:30
parent e16fb64620
commit a960196e02
No known key found for this signature in database
GPG Key ID: D19E3E0EBB557613
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Handler/Package.hs
View File

@ -86,14 +86,16 @@ packagePage mspi pname =
handlePackage :: Either HackageCabalInfo SnapshotPackageInfo -> Handler Html
handlePackage epi = do
(isDeprecated, inFavourOf) <- getDeprecated pname
(msppi, mhciLatest) <-
case epi of
Right spi -> do
sppi <- getSnapshotPackagePageInfo spi maxDisplayedDeps
return (Just sppi, sppiLatestHackageCabalInfo sppi)
Left hci -> pure (Nothing, Just hci)
PackageInfo {..} <- getPackageInfo epi
(isDeprecated, inFavourOf, snapInfo, PackageInfo{..}) <- run $ do
(isDeprecated, inFavourOf) <- getDeprecatedQuery pname
snapInfo <- case epi of
Right spi -> Right <$> getSnapshotPackagePageInfoQuery spi maxDisplayedDeps
Left hci -> pure $ Left hci
pinfo <- getPackageInfoQuery epi
pure (isDeprecated, inFavourOf, snapInfo, pinfo)
(msppi, mhciLatest) <- case snapInfo of
Left hci -> pure (Nothing, Just hci)
Right sppi -> pure (Just sppi, sppiLatestHackageCabalInfo sppi)
let authors = enumerate piAuthors
maintainers =
let ms = enumerate piMaintainers