Merge pull request #410 from IntersectMBO/smelc/move-renderSafeHashAs…

…Hex-from-cardano-node Move renderSafeHashAsHex from cardano-node
IntersectMBO · Dec 22, 2023 · d589604 · d589604
2 parents 3bad3e8 + 5d9cb77
commit d589604
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Hash.hs b/cardano-api/internal/Cardano/Api/Hash.hs
@@ -5,11 +5,16 @@ module Cardano.Api.Hash
   ( Hash
   , CastHash(..)
   , AsType(AsHash)
+  , renderSafeHashAsHex
   ) where
 
 import           Cardano.Api.HasTypeProxy
 
+import qualified Cardano.Crypto.Hash as Hash
+import qualified Cardano.Ledger.SafeHash as Ledger
+
 import           Data.Kind (Type)
+import qualified Data.Text as Text
 
 
 data family Hash keyrole :: Type
@@ -23,3 +28,6 @@ instance HasTypeProxy a => HasTypeProxy (Hash a) where
     data AsType (Hash a) = AsHash (AsType a)
     proxyToAsType _ = AsHash (proxyToAsType (Proxy :: Proxy a))
 
+
+renderSafeHashAsHex :: Ledger.SafeHash c tag -> Text.Text
+renderSafeHashAsHex = Hash.hashToTextAsHex . Ledger.extractHash
diff --git a/cardano-api/src/Cardano/Api.hs b/cardano-api/src/Cardano/Api.hs
@@ -195,6 +195,7 @@ module Cardano.Api (
     -- used in many other places.
     Hash,
     castHash,
+    renderSafeHashAsHex,
 
     -- * Payment addresses
     -- | Constructing and inspecting normal payment addresses