TEMP: gut out expensive queries

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])

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

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

templates/package.hamlet

@@ -24,21 +24,6 @@ $newline never
                        #{url}
 
             <table>
-              $maybe displayedVersion <- mdisplayedVersion
-                <tr>
-                  <td align=right>Version on this page:
-                  <td>
-                    <span .version>#{displayedVersion}
-              $maybe sppi <- msppi
-                $forall li <- sppiLatestInfo sppi
-                   <tr>
-                     <td align="right">
-                       <a href=@{SnapshotR (liSnapName li) StackageHomeR}>
-                          #{snapshotPrettyNameShort (liSnapName li)}
-                       :
-                     <td>
-                       <span .version>
-                         <a href=@{SnapshotR (liSnapName li) (StackageSdistR (PNVName pname))}>#{liVersionRev li}
               $maybe hciLatest <- mhciLatest
                   <tr>
                     <td align="right">Latest on Hackage: