From 6f8c30ddeabb3d9d51257f9e33a680539d1c9969 Mon Sep 17 00:00:00 2001
From: Emmanuel Denloye-Ito <emmanuel.denloye@gmail.com>
Date: Wed, 10 Apr 2024 18:29:03 -0400
Subject: [PATCH] Add Verifiers to cw-data

Now txHandler & txsHandler returns a TxDetail with list of verifiers
(in json) to an api consumer.
---
 cabal.project                                   | 4 ++--
 haskell-src/exec/Chainweb/Lookups.hs            | 1 +
 haskell-src/exec/Chainweb/Server.hs             | 1 +
 haskell-src/lib/ChainwebDb/Types/Transaction.hs | 1 +
 4 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/cabal.project b/cabal.project
index a820ded8..22e28ed4 100644
--- a/cabal.project
+++ b/cabal.project
@@ -13,8 +13,8 @@ source-repository-package
 source-repository-package
     type: git
     location: https://github.com/kadena-io/chainweb-api.git
-    tag: 1b2de025cfdc09698bfb1ec3807cd85405d6a339
-    --sha256: sha256-06jvD1kmkmthcRkyWhVLTbytwabghInxqXQD/Lm7kbA=
+    tag: b7eb7ffc3d6da99afe194205631a8f052308b7f4
+    --sha256: sha256-8Eamd+POoA8qEWJJZ2BPMDjlfVMvbBzOHXZP3QX8eEQ=
 
 source-repository-package
   type: git
diff --git a/haskell-src/exec/Chainweb/Lookups.hs b/haskell-src/exec/Chainweb/Lookups.hs
index 1bcd44e5..8d333a79 100644
--- a/haskell-src/exec/Chainweb/Lookups.hs
+++ b/haskell-src/exec/Chainweb/Lookups.hs
@@ -318,6 +318,7 @@ mkTransaction b (tx,txo) = Transaction
   , _tx_continuation = PgJSONB <$> _toutContinuation txo
   , _tx_txid = fromIntegral <$> _toutTxId txo
   , _tx_numEvents = Just $ fromIntegral $ length $ _toutEvents txo
+  , _tx_verifiers = PgJSONB <$> tx ^? to (CW._transaction_cmdStr) . key "verifiers"
   }
   where
     cmd = CW._transaction_cmd tx
diff --git a/haskell-src/exec/Chainweb/Server.hs b/haskell-src/exec/Chainweb/Server.hs
index d151df74..c07ac828 100644
--- a/haskell-src/exec/Chainweb/Server.hs
+++ b/haskell-src/exec/Chainweb/Server.hs
@@ -386,6 +386,7 @@ toApiTxDetail tx contHist blk evs signers sigs = TxDetail
         , _txDetail_previousSteps = V.toList (chSteps contHist) <$ chCode contHist
         , _txDetail_signers = signers
         , _txDetail_sigs = sigs
+        , _txDetail_verifiers =  unPgJsonb <$> _tx_verifiers tx
         }
   where
     unMaybeValue = maybe Null unPgJsonb
diff --git a/haskell-src/lib/ChainwebDb/Types/Transaction.hs b/haskell-src/lib/ChainwebDb/Types/Transaction.hs
index abce1f90..b80adac8 100644
--- a/haskell-src/lib/ChainwebDb/Types/Transaction.hs
+++ b/haskell-src/lib/ChainwebDb/Types/Transaction.hs
@@ -54,6 +54,7 @@ data TransactionT f = Transaction
   , _tx_continuation :: C f (Maybe (PgJSONB Value))
   , _tx_txid :: C f (Maybe Int64)
   , _tx_numEvents :: C f (Maybe Int64)
+  , _tx_verifiers :: C f (Maybe (PgJSONB Value))
   }
   deriving stock (Generic)
   deriving anyclass (Beamable)