Merge #3934

3934: [DEVOPS-1172] faucet: Use OptimizeForHighThroughput grouping policy r=rvl a=rvl

## Description

Fix faucet withdrawals which occasionally fail due to unavailable UTxO.

## Linked issue

https://iohk.myjetbrains.com/youtrack/issue/DEVOPS-1172



Co-authored-by: Rodney Lorrimar <[email protected]>

Author: iohk-bors[bot]

faucet/cardano-sl-faucet.cabal

@@ -1,7 +1,3 @@
--- This file has been generated from package.yaml by hpack version 0.18.1.
---
--- see: https://github.com/sol/hpack
-
 name:           cardano-sl-faucet
 version:        2.0.0
 description:    Cardano SL - faucet
@@ -22,6 +18,7 @@ library
                     , aeson-pretty
                     , base16-bytestring
                     , bytestring
+                    , cardano-sl-client
                     , cardano-sl-core
                     , cardano-sl-crypto
                     , cardano-sl-chain

faucet/src/Cardano/WalletClient.hs

@@ -21,6 +21,7 @@ import qualified Data.ByteArray as BA
 import           Data.ByteString (ByteString)
 import           Data.List.NonEmpty (NonEmpty (..))
 import           Data.Text.Strict.Lens (utf8)
+import           Pos.Client.Txp.Util (InputSelectionPolicy (..))
 import           Pos.Core (Address (..), Coin (..))
 import           Pos.Crypto.Signing (PassPhrase)
 import           System.Random
@@ -49,7 +50,8 @@ withdraw addr = withSublogger "WalletClient.withdraw" $ do
     q <- view feWithdrawalQ
     let paymentDist = (V1.PaymentDistribution addr coin :| [])
         sp =  spendingPassword <&> view (re utf8 . to hashPwd . to V1)
-        payment = Payment paymentSource paymentDist Nothing sp
+        gp = Just (V1 OptimizeForHighThroughput)
+        payment = Payment paymentSource paymentDist gp sp
     eRes <- liftIO $ sendToQueue q payment
     case eRes of
         Left e -> do

pkgs/default.nix

@@ -16543,6 +16543,7 @@ license = stdenv.lib.licenses.mit;
 , base16-bytestring
 , bytestring
 , cardano-sl-chain
+, cardano-sl-client
 , cardano-sl-core
 , cardano-sl-crypto
 , cardano-sl-infra
@@ -16610,6 +16611,7 @@ base
 base16-bytestring
 bytestring
 cardano-sl-chain
+cardano-sl-client
 cardano-sl-core
 cardano-sl-crypto
 cardano-sl-util