fix change UTxO calculation

cardano-foundation · May 21, 2019 · 37daa16 · 37daa16
1 parent fa80c12
commit 37daa16
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Primitive/Model.hs b/lib/core/src/Cardano/Wallet/Primitive/Model.hs
@@ -75,8 +75,6 @@ import Control.Monad
     ( foldM, forM )
 import Control.Monad.Trans.State.Strict
     ( State, evalState, runState, state )
-import Data.Foldable
-    ( fold )
 import Data.Generics.Internal.VL.Lens
     ( (^.) )
 import Data.Generics.Labels
@@ -329,10 +327,8 @@ changeUTxO
     -> Set Tx
     -> s
     -> UTxO
-changeUTxO proxy pending = evalState $ do
-    ourUtxo <- mapM (state . utxoOurs proxy) (Set.toList pending)
-    let ins = txIns pending
-    return $ fold ourUtxo `restrictedBy` ins
+changeUTxO proxy pending = evalState $
+    mconcat <$> mapM (state . utxoOurs proxy) (Set.toList pending)
 
 -- | Construct our _next_ UTxO (possible empty) from a transaction by selecting
 -- outputs that are ours. It is important for the transaction outputs to be