Add various NFData instances

cardano-foundation · Apr 1, 2023 · fdb17a5 · fdb17a5
1 parent 80fec43
commit fdb17a5
Show file tree

Hide file tree

Showing 5 changed files with 16 additions and 1 deletion.
diff --git a/lib/balance-tx/cardano-balance-tx.cabal b/lib/balance-tx/cardano-balance-tx.cabal
@@ -43,6 +43,7 @@ library
     , cardano-wallet-primitive
     , cardano-wallet-test-utils
     , containers
+    , deepseq
     , fmt
     , generic-lens
     , generics-sop

diff --git a/lib/balance-tx/lib/Cardano/Tx/Balance/Internal/CoinSelection.hs b/lib/balance-tx/lib/Cardano/Tx/Balance/Internal/CoinSelection.hs
@@ -117,6 +117,8 @@ import Cardano.Wallet.Primitive.Types.UTxOSelection
     ( UTxOSelection )
 import Control.Arrow
     ( (&&&) )
+import Control.DeepSeq
+    ( NFData )
 import Control.Monad.Random.Class
     ( MonadRandom (..) )
 import Control.Monad.Trans.Except
@@ -414,6 +416,8 @@ data SelectionOf change = Selection
     }
     deriving (Generic, Eq, Show)
 
+instance NFData change => NFData (SelectionOf change)
+
 -- | The default type of selection.
 --
 -- In this type of selection, change values do not have addresses assigned.

diff --git a/lib/wallet/src/Cardano/Wallet.hs b/lib/wallet/src/Cardano/Wallet.hs
@@ -2850,7 +2850,9 @@ calcMinimumDeposit DBLayer{..}  netLayer wid =
 data DelegationFee = DelegationFee
     { feePercentiles :: (Percentile 10 Fee, Percentile 90 Fee)
     , deposit :: Coin
-    }
+    } deriving (Generic)
+
+instance NFData DelegationFee
 
 delegationFee
     :: forall s k (n :: NetworkDiscriminant)

diff --git a/lib/wallet/src/Cardano/Wallet/Primitive/Migration.hs b/lib/wallet/src/Cardano/Wallet/Primitive/Migration.hs
@@ -34,6 +34,8 @@ import Cardano.Wallet.Primitive.Types.Tx.TxOut
     ( TxOut )
 import Cardano.Wallet.Primitive.Types.UTxO
     ( UTxO )
+import Control.DeepSeq
+    ( NFData )
 import Data.Generics.Internal.VL.Lens
     ( view )
 import Data.Generics.Labels
@@ -59,6 +61,8 @@ data MigrationPlan = MigrationPlan
     }
     deriving (Eq, Generic, Show)
 
+instance NFData MigrationPlan
+
 -- | Creates a migration plan for the given UTxO set and reward withdrawal
 --   amount.
 --

diff --git a/lib/wallet/src/Cardano/Wallet/Primitive/Migration/Selection.hs b/lib/wallet/src/Cardano/Wallet/Primitive/Migration/Selection.hs
@@ -72,6 +72,8 @@ import Cardano.Wallet.Primitive.Types.Tx.Constraints
     , txOutputHasValidSize
     , txOutputHasValidTokenQuantities
     )
+import Control.DeepSeq
+    ( NFData )
 import Control.Monad
     ( (>=>) )
 import Data.Bifunctor
@@ -125,6 +127,8 @@ data Selection input = Selection
     }
     deriving (Eq, Generic, Show)
 
+instance NFData input => NFData (Selection input)
+
 newtype RewardWithdrawal = RewardWithdrawal
     { unRewardWithdrawal :: Coin }
     deriving (Eq, Show)