Rename various mintToken functions to mintBurnAssets.

This is consistent with the name of the endpoint.
cardano-foundation · Jul 12, 2021 · 6cd32fe · 6cd32fe
1 parent e566cd7
commit 6cd32fe
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Api/Link.hs b/lib/core/src/Cardano/Wallet/Api/Link.hs
@@ -71,7 +71,7 @@ module Cardano.Wallet.Api.Link
     , getAsset
     , listByronAssets
     , getByronAsset
-    , mintToken
+    , mintBurnAssets
 
       -- * Transactions
     , createTransaction
@@ -899,12 +899,12 @@ instance HasVerb sub => HasVerb (QueryFlag sym :> sub) where
 instance HasVerb sub => HasVerb (Header' opts name ty :> sub) where
     method _ = method (Proxy @sub)
 
-mintToken
+mintBurnAssets
     :: forall w.
         ( HasType (ApiT WalletId) w
         )
     => w
     -> (Method, Text)
-mintToken w = (endpoint @(Api.MintBurnAssets Net) (wid &))
+mintBurnAssets w = (endpoint @(Api.MintBurnAssets Net) (wid &))
   where
     wid = w ^. typed @(ApiT WalletId)
diff --git a/lib/core/src/Cardano/Wallet/Api/Server.hs b/lib/core/src/Cardano/Wallet/Api/Server.hs
@@ -89,7 +89,7 @@ module Cardano.Wallet.Api.Server
     , postSharedWallet
     , patchSharedWallet
     , mkSharedWallet
-    , mintToken
+    , mintBurnAssets
 
     -- * Server error responses
     , IsServerError(..)
@@ -3804,11 +3804,11 @@ instance HasSeverityAnnotation WalletEngineLog where
         MsgWalletWorker msg -> getSeverityAnnotation msg
         MsgSubmitSealedTx msg -> getSeverityAnnotation msg
 
-mintToken
+mintBurnAssets
     :: forall ctx n
      . ctx
     -> ApiT WalletId
     -> Api.PostMintBurnAssetData n
     -> Handler (ApiMintBurnTransaction n)
-mintToken _ctx (ApiT _wid) _body =
-    error "Minting is not supported - this is just a stub"
+mintBurnAssets _ctx (ApiT _wid) _body =
+    error "Minting and burning are not supported - this is just a stub"
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Api/Server.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Api/Server.hs
@@ -87,7 +87,7 @@ import Cardano.Wallet.Api.Server
     , listTransactions
     , listWallets
     , migrateWallet
-    , mintToken
+    , mintBurnAssets
     , mkLegacyWallet
     , mkSharedWallet
     , mkShelleyWallet
@@ -267,7 +267,7 @@ server byron icarus shelley multisig spl ntp =
 
     assets :: Server (Assets n)
     assets =
-        mintToken shelley
+        mintBurnAssets shelley
         :<|> listAssets shelley
         :<|> getAsset shelley
         :<|> getAssetDefault shelley