Merge pull request #796 from input-output-hk/hydra-node-crashed-after…

…-a-fork Hydra node crashed after a fork
input-output-hk · Mar 29, 2023 · 2cf8aba · 2cf8aba
2 parents 79c5133 + 2427c65
commit 2cf8aba
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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