From 89f1c442ac47f2a85d348d8780a2574382402c3b Mon Sep 17 00:00:00 2001 From: sourabhxyz Date: Tue, 28 Oct 2025 17:29:19 +0530 Subject: [PATCH 1/2] feat: expose Kupo client SDK, add spentAt in UTxO response --- src/GeniusYield/Providers/Kupo.hs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/src/GeniusYield/Providers/Kupo.hs b/src/GeniusYield/Providers/Kupo.hs index 8fd9d7e2..b6b23035 100644 --- a/src/GeniusYield/Providers/Kupo.hs +++ b/src/GeniusYield/Providers/Kupo.hs @@ -9,6 +9,21 @@ Stability : develop module GeniusYield.Providers.Kupo ( KupoApiEnv, newKupoApiEnv, + KupoProviderException (..), + handleKupoError, + handleKupoAbsurdResponse, + runKupoClient, + KupoDatum (..), + KupoScriptLanguage (..), + KupoScript (..), + KupoValue (..), + KupoDatumType (..), + KupoCreatedAt (..), + KupoUtxo (..), + findDatumByHash, + findScriptByHash, + fetchUtxosByPattern, + transformUtxo, kupoLookupDatum, kupoLookupScript, kupoQueryUtxo, @@ -219,6 +234,12 @@ newtype KupoCreatedAt = KupoCreatedAt deriving stock (Show, Eq, Ord, Generic) deriving FromJSON via CustomJSON '[FieldLabelModifier '[CamelToSnake]] KupoCreatedAt +data KupoSpentAt = KupoSpentAt + { kpaTransactionId :: !GYTxId + } + deriving stock (Show, Eq, Ord, Generic) + deriving FromJSON via CustomJSON '[FieldLabelModifier '[StripPrefix "kpa", LowerFirst, CamelToSnake]] KupoSpentAt + data KupoUtxo = KupoUtxo { transactionId :: !GYTxId , outputIndex :: !Api.TxIx @@ -228,6 +249,7 @@ data KupoUtxo = KupoUtxo , datumType :: !(Maybe KupoDatumType) , scriptHash :: !(Maybe GYScriptHash) , createdAt :: !KupoCreatedAt + , spentAt :: !(Maybe KupoSpentAt) } deriving stock (Show, Eq, Ord, Generic) deriving FromJSON via CustomJSON '[FieldLabelModifier '[CamelToSnake]] KupoUtxo From 9e53c26f24d4de85ae8616eb3446e3482573b15c Mon Sep 17 00:00:00 2001 From: sourabhxyz Date: Tue, 28 Oct 2025 18:14:33 +0530 Subject: [PATCH 2/2] feat: expose KupoSpentAt --- src/GeniusYield/Providers/Kupo.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/GeniusYield/Providers/Kupo.hs b/src/GeniusYield/Providers/Kupo.hs index b6b23035..2fc2bff0 100644 --- a/src/GeniusYield/Providers/Kupo.hs +++ b/src/GeniusYield/Providers/Kupo.hs @@ -19,6 +19,7 @@ module GeniusYield.Providers.Kupo ( KupoValue (..), KupoDatumType (..), KupoCreatedAt (..), + KupoSpentAt (..), KupoUtxo (..), findDatumByHash, findScriptByHash,