diff --git a/src/Stackage/Database/Query.hs b/src/Stackage/Database/Query.hs index e7fdc66..759f101 100644 --- a/src/Stackage/Database/Query.hs +++ b/src/Stackage/Database/Query.hs @@ -440,10 +440,8 @@ getSnapshotPackagePageInfo :: GetStackageDatabase env m => SnapshotPackageInfo -> Int -> m SnapshotPackagePageInfo getSnapshotPackagePageInfo spi maxDisplayedDeps = run $ do - mhciLatest <- - case spiOrigin spi of - Hackage -> getHackageLatestVersion $ spiPackageName spi - _ -> pure Nothing + mhciLatest <- getHackageLatestVersion $ spiPackageName spi + -- TODO: check for `spiOrigin spi` once other than `Hackage` are implemented forwardDepsCount <- getForwardDepsCount spi reverseDepsCount <- getReverseDepsCount spi forwardDeps <-