From 92208463290b0e29ba68d9c420092c0eaf4816c3 Mon Sep 17 00:00:00 2001 From: Johannes Lund Date: Wed, 26 Aug 2020 13:15:16 +0200 Subject: [PATCH] Also trace the times of stake distribution LSQ queries --- lib/shelley/src/Cardano/Wallet/Shelley/Network.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs index cb49e65a0a1..28ea55d9a4e 100644 --- a/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs +++ b/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs @@ -441,13 +441,13 @@ withNetworkLayer tr np addrInfo versionData action = do _stakeDistribution queue bh coin = do let pt = toPoint getGenesisBlockHash bh - stakeMap <- handleQueryFailure + stakeMap <- handleQueryFailure $ timeQryAndLog "GetStakeDistribution" tr (queue `send` CmdQueryLocalState pt (QueryIfCurrentShelley Shelley.GetStakeDistribution)) let toStake = Set.singleton $ Left $ toShelleyCoin coin liftIO $ traceWith tr $ MsgWillQueryRewardsForStake coin - rewardsPerAccount <- handleQueryFailure + rewardsPerAccount <- handleQueryFailure $ timeQryAndLog "GetNonMyopicMemberRewards" tr (queue `send` CmdQueryLocalState pt (QueryIfCurrentShelley (Shelley.GetNonMyopicMemberRewards toStake))) - pparams <- handleQueryFailure + pparams <- handleQueryFailure $ timeQryAndLog "GetCurrentPParams" tr (queue `send` CmdQueryLocalState pt (QueryIfCurrentShelley Shelley.GetCurrentPParams)) let fromJustRewards = fromMaybe (error "stakeDistribution: requested rewards not included in response")