module Hydra.Cardano.Api.ScriptDatum where

import Hydra.Cardano.Api.Prelude

import Hydra.Cardano.Api.ScriptData (ToScriptData, toScriptData)

-- * Extras

-- | Construct a 'ScriptDatum' for use as transaction witness.
mkScriptDatum :: ToScriptData a => a -> ScriptDatum WitCtxTxIn
mkScriptDatum :: forall a. ToScriptData a => a -> ScriptDatum WitCtxTxIn
mkScriptDatum =
  HashableScriptData -> ScriptDatum WitCtxTxIn
ScriptDatumForTxIn (HashableScriptData -> ScriptDatum WitCtxTxIn)
-> (a -> HashableScriptData) -> a -> ScriptDatum WitCtxTxIn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. a -> HashableScriptData
forall a. ToScriptData a => a -> HashableScriptData
toScriptData