Add getAnchorDataFromCertificate to new api

Author: Jimbo4350

cardano-api/src/Cardano/Api/Experimental.hs

@@ -22,6 +22,8 @@ module Cardano.Api.Experimental
   , hashTxBody
   , evaluateTransactionExecutionUnitsShelley
   , Certificate (..)
+  , AnchorDataFromCertificateError (..)
+  , getAnchorDataFromCertificate
   , mkTxCertificates
 
     -- ** Transaction fee related

cardano-api/src/Cardano/Api/Experimental/Tx/Internal/Certificate.hs

@@ -2,6 +2,7 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GADTs #-}
+{-# LANGUAGE InstanceSigs #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE StandaloneDeriving #-}
@@ -13,13 +14,16 @@
 
 module Cardano.Api.Experimental.Tx.Internal.Certificate
   ( Certificate (..)
+  , AnchorDataFromCertificateError (..)
+  , getAnchorDataFromCertificate
   )
 where
 
 import Cardano.Api.Certificate.Internal qualified as Api
 import Cardano.Api.Era.Internal.Eon.ConwayEraOnwards
 import Cardano.Api.Era.Internal.Eon.ShelleyBasedEra
 import Cardano.Api.Era.Internal.Eon.ShelleyToBabbageEra qualified as Api
+import Cardano.Api.Error
 import Cardano.Api.Experimental.Era
 import Cardano.Api.HasTypeProxy
 import Cardano.Api.Ledger qualified as L
@@ -105,3 +109,12 @@ getAnchorDataFromCertificate ConwayEra (Certificate c) =
             , Ledger.anchorDataHash = Ledger.unsafeMakeSafeHash hash
             }
         )
+
+data AnchorDataFromCertificateError
+  = InvalidPoolMetadataHashError Ledger.Url ByteString
+  deriving (Eq, Show)
+
+instance Error AnchorDataFromCertificateError where
+  prettyError :: AnchorDataFromCertificateError -> Doc ann
+  prettyError (InvalidPoolMetadataHashError url hash) =
+    "Invalid pool metadata hash for URL " <> fromString (show url) <> ": " <> fromString (show hash)