Permalink
Browse files

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 <rodney.lorrimar@iohk.io>
  • Loading branch information...
iohk-bors[bot] and rvl committed Dec 6, 2018
2 parents e25fcd7 + 46dc932 commit 608a7121b826f8614d551ac3d2d7eda5e20a06cb
Showing with 6 additions and 5 deletions.
  1. +1 −4 faucet/cardano-sl-faucet.cabal
  2. +3 −1 faucet/src/Cardano/WalletClient.hs
  3. +2 −0 pkgs/default.nix
@@ -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
@@ -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
@@ -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

0 comments on commit 608a712

Please sign in to comment.