Fix getTotalFunds

marlowe-dashboard-client/src/API/Marlowe/Wallet.purs

@@ -0,0 +1,24 @@
+module API.Marlowe.Run.Wallet
+  ( getTotalFunds
+  ) where
+
+import Prologue
+import API.Request (doGetRequest)
+import API.Url (toUrlPiece)
+import Component.Contacts.Types (WalletId)
+import Control.Monad.Error.Class (class MonadError)
+import Effect.Aff.Class (class MonadAff)
+import Marlowe.Run.Wallet.V1 (GetTotalFundsResponse) as BE
+import Servant.PureScript (AjaxError)
+
+getTotalFunds
+  :: forall m
+   . MonadAff m
+  => MonadError AjaxError m
+  => WalletId
+  -> m BE.GetTotalFundsResponse
+getTotalFunds wallet =
+  doGetRequest
+    $ "/api/wallet/v1/"
+        <> toUrlPiece wallet
+        <> "/total-funds"

marlowe-dashboard-client/src/Capability/Wallet.purs

@@ -10,6 +10,7 @@ module Capability.Wallet
 
 import Prologue
 
+import API.Marlowe.Run.Wallet as WBE
 import API.Marlowe.Run.Wallet.CentralizedTestnet
   ( RestoreError
   , RestoreWalletOptions
@@ -21,7 +22,7 @@ import Bridge (toBack, toFront)
 import Component.Contacts.Types (WalletId, WalletInfo)
 import Control.Monad.Except (lift, runExceptT)
 import Halogen (HalogenM)
-import Marlowe as WBE
+-- import Marlowe as WBE
 import Marlowe.Run.Wallet.V1 (GetTotalFundsResponse)
 import Plutus.V1.Ledger.Tx (Tx)
 import Types (AjaxResponse)
@@ -43,7 +44,10 @@ instance monadWalletAppM :: ManageWallet AppM where
     MockAPI.submitWalletTransaction (toBack wallet) tx
   getWalletInfo wallet = map (map toFront) $ runExceptT $ MockAPI.getWalletInfo
     (toBack wallet)
-  getWalletTotalFunds = runExceptT <<< WBE.getApiWalletV1ByWalletidTotalfunds
+  -- TODO: we use a manual getTotalFunds because a problem with the toUrlPiece from
+  --       PureScript servant.
+  -- getWalletTotalFunds = runExceptT <<< WBE.getApiWalletV1ByWalletidTotalfunds
+  getWalletTotalFunds = runExceptT <<< WBE.getTotalFunds
   signTransaction wallet tx = runExceptT $ MockAPI.signTransaction
     (toBack wallet)
     tx