Skip to content
Permalink
Browse files

rebase

  • Loading branch information...
piotr-iohk committed Jul 12, 2019
1 parent 7b7dfbd commit 509cc2c5dc577c776f901a5778a56f3e6dd746ab
@@ -139,7 +139,7 @@ import Control.Monad.IO.Class
import Control.Monad.Trans.Class
( lift )
import Control.Monad.Trans.Except
( ExceptT (..), except, runExceptT, throwE, withExceptT )
( ExceptT (..), runExceptT, throwE, withExceptT )
import Control.Monad.Trans.Maybe
( MaybeT (..), maybeToExceptT )
import Control.Monad.Trans.State
@@ -546,16 +546,6 @@ instance Buildable e => LiftHandler (ErrEstimateTxFee e) where
handler = \case
ErrEstimateTxFeeNoSuchWallet e -> handler e
ErrEstimateTxFeeCoinSelection e -> handler e
ErrEstimateTxFeeBackend ErrInvalidTxOutAmount ->
apiError err403 CannotValidateSelection $ mconcat
[ "I can't estimate transaction fee because transaction contains"
, " at least one payment output of value 0."
]
ErrEstimateTxFeeBackend ErrExceededInpsOrOuts ->
apiError err403 CannotValidateSelection $ mconcat
[ "I can't estimate transaction fee because transaction has either"
, " more than 255 inputs or more than 255 outputs."
]

instance LiftHandler ErrSignTx where
handler = \case
@@ -631,7 +631,7 @@ fixtureNInputs ctx (n, amt) amtToSend = do

-- each amt is going to the same address
let addrIds = view #id <$> addrs
let addrIdRepl = replicate n addrIds !! 0
let addrIdRepl = replicate n addrIds !! 1
let payments = flip map addrIdRepl $ \addr -> [aesonQQ|{
"address": #{addr},
"amount": {

0 comments on commit 509cc2c

Please sign in to comment.
You can’t perform that action at this time.