Fixup

nblockchain · Jan 20, 2024 · 8d9e954 · 8d9e954
1 parent a3b4fa9
commit 8d9e954
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/src/GWallet.Backend/Account.fs b/src/GWallet.Backend/Account.fs
@@ -7,6 +7,14 @@ open System.Threading.Tasks
 
 open GWallet.Backend.FSharpUtil.UwpHacks
 
+// this exception, if it happens, it would cause a crash because we don't handle it yet
+type InconsistentResultFromDifferentServersOfSameCurrency(currency: Currency,
+                                                          innerException: ResultInconsistencyException) =
+    inherit Exception (SPrintF2 "Inconsistent results retrieving info for currency %A: %s"
+                           (currency.ToString())
+                           innerException.Message,
+                       innerException)
+
 module Account =
 
     let private GetShowableBalanceInternal (account: IAccount)
@@ -27,8 +35,8 @@ module Account =
                         account.Currency
                 Ether.Account.GetShowableBalance account mode cancelSourceOption
         with
-        | :? ResultInconsistencyException as inconsistencyExcpetion ->
-            raise <| InconsistentResultFromDifferentServersOfSameCurrency(account.Currency, inconsistencyExcpetion)
+        | :? ResultInconsistencyException as innerEx ->
+            raise <| InconsistentResultFromDifferentServersOfSameCurrency(account.Currency, innerEx)
 
     let GetShowableBalance (account: IAccount)
                            (mode: ServerSelectionMode)

diff --git a/src/GWallet.Backend/FaultTolerantParallelClient.fs b/src/GWallet.Backend/FaultTolerantParallelClient.fs
@@ -34,13 +34,6 @@ type ResultInconsistencyException (totalNumberOfSuccesfulResultsObtained: int,
                                   maxNumberOfConsistentResultsObtained
                                   numberOfConsistentResultsRequired)
 
-type InconsistentResultFromDifferentServersOfSameCurrency(currency: Currency,
-                                                          innerException: ResultInconsistencyException) =
-    inherit Exception (SPrintF2 "Error retrieving info for currency %s: %s"
-                           (currency.ToString())
-                           innerException.Message,
-                       innerException)
-
 type UnsuccessfulServer<'K,'R when 'K: equality and 'K :> ICommunicationHistory> =
     {
         Server: Server<'K,'R>