From ae262f15d8c22c3c0c009c81b5f2ce2cca2ea7c7 Mon Sep 17 00:00:00 2001
From: "Andres G. Aragoneses" <knocte@gmail.com>
Date: Fri, 13 Oct 2023 18:28:48 +0800
Subject: [PATCH] Frontend.XF: fix build after merge

The merge included a sanity check before tx broadcast [1],
which changed the API, so we need to fix the build in the
XF frontend. Now, this is just a temporary fix short-term
fix, because it is better to crash when this sanity check
fails (just in case geewallet has a bug about not adding
change, for example), but longer term we should handle the
exception and ask the user if he's absolutely sure, like we
did in the Frontend.Console [2].

[1] e08ecb3e15f0ad6a1208d8f7c2c801e5e70788cb
[2] aaa8c2e56fec71874a86870d40f5edb535c817f6
---
 src/GWallet.Frontend.XF/SendPage.xaml.fs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/GWallet.Frontend.XF/SendPage.xaml.fs b/src/GWallet.Frontend.XF/SendPage.xaml.fs
index f67f874f9..9112481df 100644
--- a/src/GWallet.Frontend.XF/SendPage.xaml.fs
+++ b/src/GWallet.Frontend.XF/SendPage.xaml.fs
@@ -47,6 +47,9 @@ type SendPage(account: IAccount, receivePage: Page, newReceivePageFunc: unit->Pa
     let lockObject = Object()
     let mutable transaction = NotAvailableBecauseOfHotMode
 
+    // TODO: this means MinerFeeHigherThanOutputs exception could be thrown (so, crash), handle it
+    let ignoreMinerFeeHigherThanOutputs = false
+
     let mainLayout = base.FindByName<StackLayout>("mainLayout")
     let destinationScanQrCodeButton = mainLayout.FindByName<Button> "destinationScanQrCodeButton"
     let transactionScanQrCodeButton = mainLayout.FindByName<Button> "transactionScanQrCodeButton"
@@ -259,6 +262,7 @@ type SendPage(account: IAccount, receivePage: Page, newReceivePageFunc: unit->Pa
                                     transactionInfo.Destination
                                     transactionInfo.Amount
                                     password
+                                    ignoreMinerFeeHigherThanOutputs
                                         |> Async.RunSynchronously |> Some
             with
             | :? DestinationEqualToOrigin ->
@@ -726,7 +730,7 @@ type SendPage(account: IAccount, receivePage: Page, newReceivePageFunc: unit->Pa
         }
         async {
             try
-                let! _ = Account.BroadcastTransaction signedTransaction
+                let! _ = Account.BroadcastTransaction signedTransaction ignoreMinerFeeHigherThanOutputs
                 MainThread.BeginInvokeOnMainThread(fun _ ->
                     Async.StartImmediate afterSuccessfullBroadcastJob
                 )