Add function intersection to module UTxO.

This function is analogous to `Map.intersection`.
cardano-foundation · Sep 23, 2022 · a239567 · a239567
1 parent 96c0bfc
commit a239567
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/wallet/src/Cardano/Wallet/Primitive/Types/UTxO.hs b/lib/wallet/src/Cardano/Wallet/Primitive/Types/UTxO.hs
@@ -32,6 +32,7 @@ module Cardano.Wallet.Primitive.Types.UTxO
     , restrictedBy
     , restrictedTo
     , difference
+    , intersection
     , partition
     , lookup
     , filter
@@ -152,6 +153,9 @@ balance =
 difference :: UTxO -> UTxO -> UTxO
 difference a b = a `excluding` Map.keysSet (unUTxO b)
 
+intersection :: UTxO -> UTxO -> UTxO
+intersection (UTxO a) (UTxO b) = UTxO (a `Map.intersection` b)
+
 -- | Indicates whether a pair of UTxO sets are disjoint.
 --
 disjoint :: UTxO -> UTxO -> Bool