Remove unused query

Author: kderme

cardano-db/src/Cardano/Db/Query.hs

@@ -26,7 +26,6 @@ module Cardano.Db.Query (
   queryShelleyGenesisSupply,
   queryLatestBlock,
   queryLatestPoints,
-  queryAddressWithReward,
   queryLatestEpochNo,
   queryLatestBlockId,
   queryLatestSlotNo,
@@ -160,7 +159,6 @@ import Database.Esqueleto.Experimental (
   count,
   countRows,
   desc,
-  distinct,
   entityKey,
   entityVal,
   from,
@@ -504,20 +502,6 @@ queryLatestPoints = do
     pure (blk ^. BlockSlotNo, blk ^. BlockHash)
   pure $ fmap unValue2 res
 
--- This is an expensive query, but it is only used once when initiating the cStake LRU cache.
--- The idea being to get a list of current registered stake addresses using rewards.
-queryAddressWithReward :: MonadIO m => Int -> ReaderT SqlBackend m [(ByteString, StakeAddressId)]
-queryAddressWithReward limitNumber = do
-  res <- select $ distinct $ do
-    (stk :& _) <-
-      from
-        $ table @StakeAddress
-          `innerJoin` table @Reward
-        `on` (\(stk :& rwd) -> stk ^. StakeAddressId ==. rwd ^. RewardAddrId)
-    limit $ fromIntegral limitNumber
-    pure (stk ^. StakeAddressHashRaw, stk ^. StakeAddressId)
-  pure $ fmap (\(Value hashRaw, Value stakeAddressId) -> (hashRaw, stakeAddressId)) res
-
 queryLatestEpochNo :: MonadIO m => ReaderT SqlBackend m Word64
 queryLatestEpochNo = do
   res <- select $ do

doc/configuration.md

@@ -113,6 +113,7 @@ This is equivalent to setting:
 },
 "governance": "disable",
 "offchain_pool_data": "disable"
+"pool_stat": "disable"
 ```
 
 Initially populates only a few tables, like `block` and `tx`. It maintains a ledger state but
@@ -141,6 +142,7 @@ This is equivalent to setting:
 },
 "governance": "enable",
 "offchain_pool_data": "disable"
+"pool_stat": "disable"
 
 ```
 
@@ -167,6 +169,7 @@ This is equivalent to setting:
 },
 "governance": "disable",
 "offchain_pool_data": "disable"
+"pool_stat": "disable"
 ```
 
 Disables almost all data except `block` and `tx` tables.