From 8200afa00e8b4b30aa57c3d67e9fed7f325098e6 Mon Sep 17 00:00:00 2001
From: rvcas <x@rvcas.dev>
Date: Wed, 16 Nov 2022 12:21:50 -0500
Subject: [PATCH] feat(aiken_stdlib): add Hash alias and ScriptPurpose

---
 examples/aiken_std/lib/aiken/context.ak | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/examples/aiken_std/lib/aiken/context.ak b/examples/aiken_std/lib/aiken/context.ak
index ba0909b7..c2a1194d 100644
--- a/examples/aiken_std/lib/aiken/context.ak
+++ b/examples/aiken_std/lib/aiken/context.ak
@@ -3,6 +3,15 @@ pub type ScriptContext(purpose) {
   purpose: purpose,
 }
 
+pub type Hash(a) =
+  ByteArray
+
+pub type ScriptPurpose {
+  Mint(PolicyId)
+  Spend(OutputReference)
+  Withdrawal(Nil)
+}
+
 pub type Transaction {
   inputs: List(Input),
   reference_inputs: List(Input),
@@ -14,12 +23,12 @@ pub type Transaction {
   validity_range: Nil,
   extra_signatories: Nil,
   redeemers: List(Nil),
-  datums: List(Nil),
+  datums: List(Pair(Hash(Data), Data)),
   id: TransactionId,
 }
 
 pub type TransactionId =
-  ByteArray
+  Hash(Transaction)
 
 pub type Input {
   output_reference: OutputReference,