diff --git a/src/Handler/Package.hs b/src/Handler/Package.hs index 393da0f..4ecab38 100644 --- a/src/Handler/Package.hs +++ b/src/Handler/Package.hs @@ -100,7 +100,7 @@ handlePackage epi = do in if ms == authors then [] else ms - mdisplayedVersion = msppi >>= sppiVersion + mdisplayedVersion = Nothing defaultLayout $ do setTitle $ toHtml pname $(combineScripts 'StaticR [js_highlight_js]) diff --git a/src/Stackage/Database/Query.hs b/src/Stackage/Database/Query.hs index bc3693f..b942233 100644 --- a/src/Stackage/Database/Query.hs +++ b/src/Stackage/Database/Query.hs @@ -497,7 +497,6 @@ getSnapshotPackagePageInfo spi maxDisplayedDeps = if reverseDepsCount > 0 then getReverseDeps spi (Just maxDisplayedDeps) else pure [] - latestInfo <- getLatests (spiPackageName spi) moduleNames <- getModuleNames (spiSnapshotPackageId spi) mcabalBlobKey <- traverse getBlobKey $ spiCabalBlobId spi pure @@ -508,7 +507,6 @@ getSnapshotPackagePageInfo spi maxDisplayedDeps = , sppiForwardDepsCount = forwardDepsCount , sppiReverseDeps = map (first dropVersionRev) reverseDeps , sppiReverseDepsCount = reverseDepsCount - , sppiLatestInfo = latestInfo , sppiModuleNames = moduleNames , sppiPantryCabal = mcabalBlobKey RIO.<&> \cabalBlobKey -> @@ -517,16 +515,6 @@ getSnapshotPackagePageInfo spi maxDisplayedDeps = , pcVersion = spiVersion spi , pcCabalKey = cabalBlobKey } - , sppiVersion = - listToMaybe - [ spiVersionRev spi - | VersionRev ver mrev <- - maybe [] (pure . hciVersionRev) mhciLatest ++ - map liVersionRev latestInfo - , ver > curVer || - (ver == curVer && - fromMaybe (Revision 0) mrev > fromMaybe (Revision 0) mcurRev) - ] } where VersionRev curVer mcurRev = spiVersionRev spi diff --git a/src/Stackage/Database/Types.hs b/src/Stackage/Database/Types.hs index 02dabdb..1c1531e 100644 --- a/src/Stackage/Database/Types.hs +++ b/src/Stackage/Database/Types.hs @@ -249,11 +249,8 @@ data SnapshotPackagePageInfo = SnapshotPackagePageInfo -- ^ Limited list of packages in the snapshot that depend on this package , sppiReverseDepsCount :: !Int -- ^ Count of all packages in the snapshot that depends on this package - , sppiLatestInfo :: ![LatestInfo] , sppiModuleNames :: !(Map ModuleNameP Bool) , sppiPantryCabal :: !(Maybe PantryCabal) - , sppiVersion :: !(Maybe VersionRev) - -- ^ Version on this page. Should be present only if different from latest } toRevMaybe :: Revision -> Maybe Revision diff --git a/templates/package.hamlet b/templates/package.hamlet index 62bb56e..9d39e74 100644 --- a/templates/package.hamlet +++ b/templates/package.hamlet @@ -24,21 +24,6 @@ $newline never #{url}
| Version on this page: - |
- #{displayedVersion}
- $maybe sppi <- msppi
- $forall li <- sppiLatestInfo sppi
- |
-
- #{snapshotPrettyNameShort (liSnapName li)}
- :
- |
-
- #{liVersionRev li}
$maybe hciLatest <- mhciLatest
| Latest on Hackage:
| |