Add LocalTxSubmissionStatus type

lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs

@@ -28,6 +28,7 @@ module Cardano.Wallet.Primitive.Types.Tx
     , UnsignedTx (..)
     , TransactionInfo (..)
     , Direction (..)
+    , LocalTxSubmissionStatus (..)
     , TokenBundleSizeAssessor (..)
     , TokenBundleSizeAssessment (..)
 
@@ -386,7 +387,7 @@ instance Buildable a => Buildable (WithDirection a) where
 -- to the node.
 newtype SealedTx = SealedTx { getSealedTx :: ByteString }
     deriving stock (Show, Eq, Generic)
-    deriving newtype (ByteArrayAccess)
+    deriving newtype (ByteArrayAccess, NFData)
 
 -- | True if the given metadata refers to a pending transaction
 isPending :: TxMeta -> Bool
@@ -438,6 +439,17 @@ toTxHistory :: TransactionInfo -> (Tx, TxMeta)
 toTxHistory info =
     (fromTransactionInfo info, txInfoMeta info)
 
+-- | Information about when a transaction was submitted to the local node.
+-- This is used for scheduling resubmissions.
+data LocalTxSubmissionStatus tx = LocalTxSubmissionStatus
+    { txId :: !(Hash "Tx")
+    , submittedTx :: !tx
+    , firstSubmission :: !SlotNo
+    -- ^ Time of first successful submission to the local node.
+    , latestSubmission :: !SlotNo
+    -- ^ Time of most recent resubmission attempt.
+    } deriving (Generic, Show, Eq)
+
 -- | A function capable of assessing the size of a token bundle relative to the
 --   upper limit of what can be included in a single transaction output.
 --

lib/core/test/unit/Cardano/Wallet/Primitive/ModelSpec.hs

@@ -62,7 +62,6 @@ import Cardano.Wallet.Primitive.Types.Tx
     , TxIn (..)
     , TxMeta (direction)
     , TxOut (..)
-    , txId
     , txIns
     , txOutCoin
     )

lib/core/test/unit/Cardano/WalletSpec.hs

@@ -104,7 +104,6 @@ import Cardano.Wallet.Primitive.Types.Tx
     , TxMetadata
     , TxOut (..)
     , TxStatus (..)
-    , txId
     , txOutCoin
     )
 import Cardano.Wallet.Primitive.Types.UTxO