Get getWalletBalance back to the way it was

CTL updates caused it to throw a bigger error than it was
before. Unsure how it wasn't throwing a bigger error before, the way
we were providing the function didn't make any sense

Author: rynoV

index.d.ts

@@ -10,7 +10,7 @@ export function callMarketPlaceListNft(config: Config):
 export function callMarketPlaceFetchNft(config: Config, args: FetchNftArgs):
     Promise<NftListing?>
 export function connectWallet(): Promise<any>
-export function getWalletBalance(): Promise<any>
+export function getWalletBalance(config: Config): Promise<any>
 
 export type NetworkId
     = 0 // Testnet

index.js

@@ -36,9 +36,9 @@ exports.callMarketPlaceFetchNft = async (config, args) => {
 /**
  * Returns a promise containing the connected wallet's balance.
  */
-exports.getWalletBalance = async () => {
+exports.getWalletBalance = async (config) => {
   const sb = await seabug;
-  return sb.getWalletBalance();
+  return sb.callGetWalletBalance(config);
 };
 
 // Uncomment this for manually minting new tokens (see README)

src/Seabug/CallContract.purs

@@ -1,5 +1,6 @@
 module Seabug.CallContract
-  ( callMarketPlaceBuy
+  ( callGetWalletBalance
+  , callMarketPlaceBuy
   , callMarketPlaceFetchNft
   , callMarketPlaceListNft
   , callMint
@@ -17,6 +18,7 @@ import Contract.Transaction
   , TransactionOutput(TransactionOutput)
   , awaitTxConfirmed
   )
+import Contract.Utxos (getWalletBalance)
 import Contract.Value
   ( CurrencySymbol
   , TokenName
@@ -33,7 +35,7 @@ import Control.Promise as Promise
 import Data.BigInt (BigInt)
 import Data.BigInt as BigInt
 import Data.Log.Level (LogLevel(..))
-import Data.Nullable (Nullable, notNull, null)
+import Data.Nullable (Nullable, notNull, null, toNullable)
 import Data.Tuple.Nested ((/\))
 import Data.UInt as UInt
 import Effect (Effect)
@@ -70,6 +72,12 @@ import Types.Natural as Nat
 liftBuilder :: forall a. Either Error a -> Aff a
 liftBuilder = liftEffect <<< liftEither
 
+callGetWalletBalance
+  :: ContractConfiguration -> Effect (Promise (Nullable Value))
+callGetWalletBalance cfg = Promise.fromAff do
+  contractConfig <- liftBuilder $ buildContractConfig cfg
+  toNullable <$> runContract contractConfig getWalletBalance
+
 callMint :: ContractConfiguration -> MintArgs -> Effect (Promise Unit)
 callMint cfg args = Promise.fromAff do
   contractConfig <- liftBuilder $ buildContractConfig cfg

src/Seabug/Seabug.purs

@@ -1,19 +1,18 @@
 module Seabug
   ( module Seabug.CallContract
-  , module QueryM.Utxos
   , mint
   ) where
 
 import Contract.Prelude
 
 import Control.Promise (Promise)
 import Data.BigInt as BigInt
-import QueryM.Utxos (getWalletBalance)
 import Seabug.CallContract
   ( callMarketPlaceBuy
   , callMarketPlaceListNft
   , callMarketPlaceFetchNft
   , callMint
+  , callGetWalletBalance
   )
 
 mint :: Effect (Promise Unit)