cache

Author: Ciabas

govtool/backend/app/Main.hs

@@ -125,6 +125,7 @@ startApp vvaConfig sentryService = do
     networkInfoCache <- newCache
     networkTotalStakeCache <- newCache
     dRepVotingPowerListCache <- newCache
+    accountInfoCache <- newCache
     return $ CacheEnv
       { proposalListCache
       , getProposalCache
@@ -139,6 +140,7 @@ startApp vvaConfig sentryService = do
       , networkInfoCache
       , networkTotalStakeCache
       , dRepVotingPowerListCache
+      , accountInfoCache
       }
 
   let connectionString = encodeUtf8 (dbSyncConnectionString $ getter vvaConfig)

govtool/backend/src/VVA/API.hs

@@ -533,7 +533,7 @@ getNetworkMetrics = do
 
 getAccountInfo :: App m => HexText -> m GetAccountInfoResponse
 getAccountInfo (unHexText -> stakeKey) = do
-  -- CacheEnv {accountInfoCache} <- asks vvaCache
+  CacheEnv {accountInfoCache} <- asks vvaCache
   Types.AccountInfo {..} <- Account.accountInfo stakeKey
   return $ GetAccountInfoResponse
     { getAccountInfoResponseId = accountInfoId

govtool/backend/src/VVA/API/Types.hs

@@ -1046,7 +1046,7 @@ exampleGetAccountInfoResponse :: Text
 exampleGetAccountInfoResponse =
   "{\"stakeKey\": \"stake1u9\","
   <> " \"id\": \"1\","
-  <> "\"view\": \"stake_test1uzapf83wydusjln97rqr7fen6vgrz5087yqdxm0akqdqkgstjz8g4\","
+  <> "\"view\": \"stake_test1uzapf83wydusjln97rqr7fen6vgrz5087yqdxm0akqdqkgstj2345\","
   <> "\"isRegistered\": false,"
   <> "\"isScriptBased\": false}"
 instance ToSchema GetAccountInfoResponse where

govtool/backend/src/VVA/Types.hs

@@ -260,6 +260,7 @@ data CacheEnv
       , networkInfoCache                    :: Cache.Cache () NetworkInfo
       , networkTotalStakeCache              :: Cache.Cache () NetworkTotalStake
       , dRepVotingPowerListCache            :: Cache.Cache Text [DRepVotingPowerList]
+      , accountInfoCache                    :: Cache.Cache Text AccountInfo
       }
 
 data NetworkInfo