wip

Author: Bromel777

submit-api/src/SubmitAPI/Internal/Balancing.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module SubmitAPI.Internal.Balancing where
 
 import Prelude
@@ -259,9 +257,9 @@ makeTransactionBodyAutoBalance eraInMode systemstart history pparams
     | otherwise = do
         let chargeBoxWillBeMerged = isJust $ find (\(TxOut boxAddr _ _ _) -> boxAddr == changeaddr) outs
         if chargeBoxWillBeMerged
-          then
+          then 
             Right ()
-          else
+          else 
             case checkMinUTxOValue (TxOut changeaddr balance TxOutDatumNone ReferenceScriptNone) pparams of
               Left (TxBodyErrorMinUTxONotMet txOutAny minUTxO) ->
                 Left $ TxBodyErrorAdaBalanceTooSmall txOutAny minUTxO (txOutValueToLovelace balance)

submit-api/submit-api.cabal

@@ -141,16 +141,13 @@ test-suite submit-api-tests
     , base16-bytestring
     , bytestring
     , plutus-ledger-api
-    , quickblue
     , cardano-api
     , ouroboros-consensus
     , random
     , plutus-tx
     , plutus-ledger-api
     , plutus-script-utils
-    , ergo-hs-common
     , plutus-ledger
-    , hlog
     , containers
     , random-strings
     , plutus-core
@@ -159,9 +156,7 @@ test-suite submit-api-tests
     , submit-api
     , cardano-tx
     , network-api
-    , memory
     , wallet-api
     , serialise
-    , resourcet
     , cardano-dex-contracts-offchain
     , cardano-ledger-alonzo