Update jormungandr for mkStdTx change

lib/jormungandr/cardano-wallet-jormungandr.cabal

@@ -155,6 +155,7 @@ test-suite unit
     , contra-tracer
     , deepseq
     , directory
+    , extra
     , filepath
     , file-embed
     , fmt

lib/jormungandr/src/Cardano/Wallet/Jormungandr/Transaction.hs

@@ -49,6 +49,7 @@ import Cardano.Wallet.Primitive.Types
     ( ChimericAccount (..)
     , Hash (..)
     , SealedTx (..)
+    , SlotNo (..)
     , Tx (..)
     , TxMetadata
     , TxOut (..)
@@ -156,6 +157,7 @@ newTransactionLayer block0H = TransactionLayer
                 , metadata = Nothing
                 }
             , finalizeFragment fragment
+            , maxBound :: SlotNo
             )
 
     -- NOTE

lib/jormungandr/test/integration/Test/Integration/Jormungandr/Scenario/API/Transactions.hs

@@ -659,7 +659,7 @@ fixtureExternalTx ctx toSend = do
     let wSrc = getFromResponse Prelude.id r0
     -- we take input by lookking at transactions of the faucet wallet
     txsSrc <- listAllTransactions @n ctx wSrc
-    let (ApiTransaction (ApiT theTxId) _ _ _ _ _ _ outs _ _ _):_ = reverse txsSrc
+    let (ApiTransaction (ApiT theTxId) _ _ _ _ _ _ _ outs _ _ _):_ = reverse txsSrc
     let (AddressAmount ((ApiT addrSrc),_) (Quantity amt)):_ = outs
     let (rootXPrv, pwd, st) = getSeqState mnemonicFaucet fixturePassphrase
     -- we create change address
@@ -716,7 +716,7 @@ fixtureExternalTx ctx toSend = do
     tl <- newTransactionLayer <$> getBlock0H
     let rewardAcnt = error "rewardAcnt unused"
     let curSlot = error "current slot not needed in jormungandr mkStdTx"
-    let (Right (tx, bin)) = mkStdTx tl rewardAcnt keystore curSlot Nothing cs
+    let (Right (tx, bin, _)) = mkStdTx tl rewardAcnt keystore curSlot Nothing cs
 
     return ExternalTxFixture
         { srcWallet = wSrc

lib/jormungandr/test/unit/Cardano/Wallet/Jormungandr/TransactionSpec.hs

@@ -60,6 +60,8 @@ import Data.Proxy
     ( Proxy (..) )
 import Data.Text.Class
     ( toText )
+import Data.Tuple.Extra
+    ( snd3 )
 import Test.Hspec
     ( HasCallStack, Spec, SpecWith, describe, it, shouldBe )
 import Test.QuickCheck
@@ -507,7 +509,7 @@ goldenTestStdTx tl keystore inps outs bytes' = it title $ do
     let cs = mempty { inputs = inps, outputs = outs }
     let rewardAcnt = error "unused"
     let tx = mkStdTx tl rewardAcnt keystore (SlotNo 0) Nothing cs
-    let bytes = hex . getSealedTx . snd <$> tx
+    let bytes = hex . getSealedTx . snd3 <$> tx
     bytes `shouldBe` Right bytes'
   where
     title = "golden test mkStdTx: " <> show inps <> show outs
@@ -529,7 +531,7 @@ goldenTestDelegationCertTx tl keystore pool (accountXPrv, pass) inputs outputs b
             keystore
             (SlotNo 0)
             (mempty { inputs, outputs })
-    let sealed = getSealedTx . snd <$> res
+    let sealed = getSealedTx . snd3 <$> res
     sealed `shouldBe` Right (unsafeFromHex bytes')
     & counterexample ("poolId = " <> showHex (getPoolId pool))
   where