[DEVOPS-1172] faucet: Use OptimizeForHighThroughput grouping policy

Author: rvl

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