Factor out common build command within definition of inputWits.

cardano-foundation · Nov 2, 2022 · 92de589 · 92de589
1 parent e308cb1
commit 92de589
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs
@@ -2437,17 +2437,17 @@ mkUnsignedTx
  inputWits = case cs of
  Right selOf ->
  if inpsScripts == Map.empty then
- (,Cardano.BuildTxWith (Cardano.KeyWitness Cardano.KeyWitnessForSpending))
- . toCardanoTxIn
- . fst <$> F.toList (view #inputs selOf)
+ (, buildTxCommand)
+  . toCardanoTxIn
+  . fst <$> F.toList (view #inputs selOf)
  else
  constructInpScriptWit . fst <$> F.toList (view #inputs selOf)
  Left _preSel ->
- [( toCardanoTxIn dummyInput
-  , Cardano.BuildTxWith (Cardano.KeyWitness Cardano.KeyWitnessForSpending))]
-
-
-
+ [(toCardanoTxIn dummyInput, buildTxCommand)]
+ where
+ buildTxCommand
+ = Cardano.BuildTxWith
+ $ Cardano.KeyWitness Cardano.KeyWitnessForSpending
 
 -- cardano-node does not allow to construct tx without inputs at this moment.
 -- this should change and this hack should be removed