Backend(Ether): fix sweep when high fees

This commit fixes crash when balance is less then fees when sweeping. Fixes #223 Co-authored-by: Afshin Arani <[email protected]>
nblockchain · Oct 6, 2023 · 409e29f · 409e29f
1 parent 0c5409e
commit 409e29f
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/src/GWallet.Backend/Ether/EtherAccount.fs b/src/GWallet.Backend/Ether/EtherAccount.fs
@@ -182,8 +182,16 @@ module internal Account =
                                                        0.01m
 
         let feeValue = maybeBetterFee.CalculateAbsoluteValue()
-        if (amount.ValueToSend <> amount.BalanceAtTheMomentOfSending &&
-            feeValue > (amount.BalanceAtTheMomentOfSending - amount.ValueToSend)) then
+
+        let isSweepAndBalanceIsLessThanFee =
+            amount.ValueToSend = amount.BalanceAtTheMomentOfSending &&
+            amount.BalanceAtTheMomentOfSending < feeValue
+
+        let isNotSweepAndBalanceIsNotSufficient =
+            amount.ValueToSend <> amount.BalanceAtTheMomentOfSending &&
+            feeValue > amount.BalanceAtTheMomentOfSending - amount.ValueToSend
+
+        if isSweepAndBalanceIsLessThanFee || isNotSweepAndBalanceIsNotSufficient then
             raise <| InsufficientBalanceForFee (Some feeValue)
 
         return { Ether.Fee = maybeBetterFee; Ether.TransactionCount = txCount }