From 2427c65e5114198f59fcacc8b96cd1432cd75dd4 Mon Sep 17 00:00:00 2001 From: Sasha Bogicevic Date: Tue, 28 Mar 2023 13:02:40 +0200 Subject: [PATCH] Query node tip directly --- hydra-node/src/Hydra/Chain/Direct/TimeHandle.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hydra-node/src/Hydra/Chain/Direct/TimeHandle.hs b/hydra-node/src/Hydra/Chain/Direct/TimeHandle.hs index 41fc5f2bd96..b7ea5440609 100644 --- a/hydra-node/src/Hydra/Chain/Direct/TimeHandle.hs +++ b/hydra-node/src/Hydra/Chain/Direct/TimeHandle.hs @@ -16,7 +16,7 @@ import Hydra.Cardano.Api ( ) import Hydra.Cardano.Api.Prelude (ChainPoint (ChainPoint, ChainPointAtGenesis)) import Hydra.Chain.CardanoClient ( - QueryPoint (QueryAt), + QueryPoint (QueryTip), queryEraHistory, querySystemStart, queryTip, @@ -107,8 +107,8 @@ mkTimeHandle currentSlotNo systemStart eraHistory = do queryTimeHandle :: NetworkId -> FilePath -> IO TimeHandle queryTimeHandle networkId socketPath = do tip <- queryTip networkId socketPath - systemStart <- querySystemStart networkId socketPath (QueryAt tip) - eraHistory <- queryEraHistory networkId socketPath (QueryAt tip) + systemStart <- querySystemStart networkId socketPath QueryTip + eraHistory <- queryEraHistory networkId socketPath QueryTip currentTipSlot <- case tip of ChainPointAtGenesis -> pure $ SlotNo 0