Do not throw exception when looking for policy public key

Delegate that task to callers
cardano-foundation · Dec 17, 2024 · ca7546a · ca7546a
1 parent eab1d67
commit ca7546a
Show file tree

Hide file tree

Showing 3 changed files with 3,912 additions and 3,115 deletions.
diff --git a/lib/api/src/Cardano/Wallet/Api/Http/Server/Handlers/MintBurn.hs b/lib/api/src/Cardano/Wallet/Api/Http/Server/Handlers/MintBurn.hs
@@ -3,13 +3,11 @@
 -- |
 -- Copyright: © 2020 IOHK
 -- License: Apache-2.0
---
-
 module Cardano.Wallet.Api.Http.Server.Handlers.MintBurn
-  ( convertApiAssetMintBurn
-  , getTxApiAssetMintBurn
-  )
-  where
+    ( convertApiAssetMintBurn
+    , getTxApiAssetMintBurn
+    )
+where
 
 import Prelude hiding
     ( (.)
@@ -44,9 +42,6 @@ import Control.Category
 import Control.Monad.IO.Class
     ( MonadIO (liftIO)
     )
-import Control.Monad.Trans.Except
-    ( runExceptT
-    )
 import Data.Either.Extra
     ( eitherToMaybe
     )
@@ -61,16 +56,18 @@ convertApiAssetMintBurn
     -> (TokenMapWithScripts, TokenMapWithScripts)
     -> Handler (ApiAssetMintBurn, ApiAssetMintBurn)
 convertApiAssetMintBurn ctx (mint, burn) = do
-    xpubM <- fmap (fmap fst . eitherToMaybe)
-        <$> liftIO . runExceptT $ readPolicyPublicKey ctx
-    let  convert tokenWithScripts =  ApiAssetMintBurn
-            { tokens = toApiTokens tokenWithScripts
-            , walletPolicyKeyHash =
-                uncurry ApiPolicyKey . computeKeyPayload (Just True) <$>
-                includePolicyKeyInfo tokenWithScripts xpubM
-            , walletPolicyKeyIndex =
-                policyIx <$ includePolicyKeyInfo tokenWithScripts xpubM
-            }
+    xpubM <-
+        fmap fst . eitherToMaybe
+            <$> liftIO (readPolicyPublicKey ctx)
+    let convert tokenWithScripts =
+            ApiAssetMintBurn
+                { tokens = toApiTokens tokenWithScripts
+                , walletPolicyKeyHash =
+                    uncurry ApiPolicyKey . computeKeyPayload (Just True)
+                        <$> includePolicyKeyInfo tokenWithScripts xpubM
+                , walletPolicyKeyIndex =
+                    policyIx <$ includePolicyKeyInfo tokenWithScripts xpubM
+                }
     pure (convert mint, convert burn)
 
 getTxApiAssetMintBurn