Replace fromConsensPointHF with fromConsensusPointInMode

CHANGELOG.md

@@ -14,6 +14,8 @@ changes.
 
 - **BREAKING** `hydra-cardano-api` changes:
   + Remove `Hydra.Cardano.Api.SlotNo` module.
+  + Replace `fromConsensusPointHF` with `fromConsensusPointInMode` and
+    `toConsensusPointHF` with `toConsensusPointInMode`.
   + Re-export new `AcquiringFailure` type from `cardano-api`.
 
 ## [0.8.1] - 2022-11-17

hydra-cardano-api/src/Hydra/Cardano/Api.hs

@@ -83,7 +83,9 @@ import Cardano.Api.Shelley as X (
   ShelleyLedgerEra,
   SigningKey (..),
   VerificationKey (..),
+  fromConsensusPointInMode,
   fromPlutusData,
+  toConsensusPointInMode,
   toPlutusData,
  )
 import Cardano.Api.UTxO (

hydra-node/src/Hydra/Chain/Direct.hs

@@ -44,7 +44,7 @@ import Hydra.Cardano.Api (
   NetworkId,
   Tx,
   TxId,
-  fromConsensusPointHF,
+  fromConsensusPointInMode,
   shelleyBasedEra,
   toConsensusPointHF,
   toLedgerPParams,
@@ -347,7 +347,7 @@ chainSyncClient handler wallet startingPoint =
           pure clientStIdle
       , recvMsgRollBackward = \point _tip -> ChainSyncClient $ do
           -- Re-initialize the tiny wallet
-          reset wallet $ fromConsensusPointHF point
+          reset wallet $ fromConsensusPointInMode CardanoMode point
           -- Rollback main chain sync handler
           onRollBackward handler point
           pure clientStIdle

hydra-node/src/Hydra/Chain/Direct/Handlers.hs

@@ -20,11 +20,12 @@ import Control.Monad.Class.MonadSTM (throwSTM)
 import Data.Sequence.Strict (StrictSeq)
 import Hydra.Cardano.Api (
   ChainPoint (..),
+  ConsensusMode (CardanoMode),
   LedgerEra,
   Tx,
   TxId,
   chainPointToSlotNo,
-  fromConsensusPointHF,
+  fromConsensusPointInMode,
   fromLedgerTx,
   fromLedgerTxIn,
   getTxBody,
@@ -194,13 +195,13 @@ chainSyncHandler tracer callback getTimeHandle ctx =
  where
   onRollBackward :: Point Block -> m ()
   onRollBackward rollbackPoint = do
-    let point = fromConsensusPointHF rollbackPoint
+    let point = fromConsensusPointInMode CardanoMode rollbackPoint
     traceWith tracer $ RolledBackward{point}
     callback (const . Just $ Rollback $ chainSlotFromPoint point)
 
   onRollForward :: Block -> m ()
   onRollForward blk = do
-    let point = fromConsensusPointHF $ blockPoint blk
+    let point = fromConsensusPointInMode CardanoMode $ blockPoint blk
     let receivedTxs = map fromLedgerTx . toList $ getBabbageTxs blk
     traceWith tracer $
       RolledForward

hydra-node/src/Hydra/Chain/Direct/Wallet.hs

@@ -47,6 +47,7 @@ import qualified Data.Sequence.Strict as StrictSeq
 import qualified Data.Set as Set
 import Hydra.Cardano.Api (
   ChainPoint,
+  ConsensusMode (CardanoMode),
   LedgerEra,
   NetworkId,
   PaymentCredential (PaymentCredentialByKey),
@@ -55,7 +56,7 @@ import Hydra.Cardano.Api (
   SigningKey,
   StakeAddressReference (NoStakeAddress),
   VerificationKey,
-  fromConsensusPointHF,
+  fromConsensusPointInMode,
   makeShelleyAddress,
   shelleyAddressInEra,
   toLedgerAddr,
@@ -145,7 +146,7 @@ newTinyWallet tracer networkId (vk, sk) chainPoint queryUTxOEtc = do
           atomically $ writeTVar utxoVar res
           traceWith tracer $ EndInitialize{initialUTxO}
       , update = \block -> do
-          let point = fromConsensusPointHF $ blockPoint block
+          let point = fromConsensusPointInMode CardanoMode $ blockPoint block
           traceWith tracer $ BeginUpdate{point}
           utxo' <- atomically $ do
             (utxo, pparams, systemStart, epochInfo) <- readTVar utxoVar