feat: cip-119 support on haskell backend

IntersectMBO · Aug 23, 2024 · d61c23c · d61c23c
1 parent ce37326
commit d61c23c
Show file tree

Hide file tree

Showing 8 changed files with 125 additions and 246 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -16,6 +16,7 @@ changes.
 - Add SPO and CC committee total votes to gov actions [Issue 1704](https://github.com/IntersectMBO/govtool/issues/1704)
 - Add support for hard fork initiation governance action details [Issue 1600](https://github.com/IntersectMBO/govtool/issues/1600)
 - Add support for hard fork initiation previous governance action data [Issue 1600](https://github.com/IntersectMBO/govtool/issues/1600)
+- Add support for CIP-119 on the backend and metadata validation [Issue 1758](https://github.com/IntersectMBO/govtool/issues/1758)
 
 ### Fixed
 

diff --git a/govtool/backend/sql/get-drep-info.sql b/govtool/backend/sql/get-drep-info.sql
@@ -176,7 +176,14 @@ SELECT
     DRepRegister.tx_hash,
     DRepRetire.tx_hash,
     SoleVoterRegister.tx_hash,
-    SoleVoterRetire.tx_hash
+    SoleVoterRetire.tx_hash,
+    off_chain_vote_drep_data.payment_address,
+    off_chain_vote_drep_data.given_name,
+    off_chain_vote_drep_data.objectives,
+    off_chain_vote_drep_data.motivations,
+    off_chain_vote_drep_data.qualifications,
+    off_chain_vote_drep_data.image_url,
+    off_chain_vote_drep_data.image_hash
 FROM
     IsRegisteredAsDRep
     CROSS JOIN IsRegisteredAsSoleVoter
@@ -189,3 +196,6 @@ FROM
     CROSS JOIN DRepRetire
     CROSS JOIN SoleVoterRegister
     CROSS JOIN SoleVoterRetire
+    CROSS JOIN LatestRegistrationEntry
+    LEFT JOIN off_chain_vote_data ON off_chain_vote_data.voting_anchor_id = LatestRegistrationEntry.voting_anchor_id
+    LEFT JOIN off_chain_vote_drep_data ON off_chain_vote_drep_data.off_chain_vote_data_id = off_chain_vote_data.id
diff --git a/govtool/backend/sql/list-dreps.sql b/govtool/backend/sql/list-dreps.sql
@@ -29,7 +29,14 @@ SELECT
   encode(dr_voting_anchor.tx_hash, 'hex') AS tx_hash,
   newestRegister.time AS last_register_time,
   COALESCE(latestDeposit.deposit, 0),
-  non_deregister_voting_anchor.url IS NOT NULL AS has_non_deregister_voting_anchor
+  non_deregister_voting_anchor.url IS NOT NULL AS has_non_deregister_voting_anchor,
+  off_chain_vote_drep_data.payment_address,
+  off_chain_vote_drep_data.given_name,
+  off_chain_vote_drep_data.objectives,
+  off_chain_vote_drep_data.motivations,
+  off_chain_vote_drep_data.qualifications,
+  off_chain_vote_drep_data.image_url,
+  off_chain_vote_drep_data.image_hash
 FROM
   drep_hash dh
   JOIN (
@@ -89,6 +96,8 @@ FROM
     AND DRepDistr.rn = 1
   LEFT JOIN voting_anchor va ON va.id = dr_voting_anchor.voting_anchor_id
   LEFT JOIN voting_anchor non_deregister_voting_anchor on non_deregister_voting_anchor.id = dr_non_deregister_voting_anchor.voting_anchor_id
+  LEFT JOIN off_chain_vote_data ON off_chain_vote_data.voting_anchor_id = va.id
+  LEFT JOIN off_chain_vote_drep_data on off_chain_vote_drep_data.off_chain_vote_data_id = off_chain_vote_data.id 
   CROSS JOIN DRepActivity
   LEFT JOIN voting_procedure AS voting_procedure ON voting_procedure.drep_voter = dh.id
   LEFT JOIN tx AS tx ON tx.id = voting_procedure.tx_id
@@ -128,4 +137,11 @@ GROUP BY
   dr_voting_anchor.tx_hash,
   newestRegister.time,
   latestDeposit.deposit,
-  non_deregister_voting_anchor.url
+  non_deregister_voting_anchor.url,
+  off_chain_vote_drep_data.payment_address,
+  off_chain_vote_drep_data.given_name,
+  off_chain_vote_drep_data.objectives,
+  off_chain_vote_drep_data.motivations,
+  off_chain_vote_drep_data.qualifications,
+  off_chain_vote_drep_data.image_url,
+  off_chain_vote_drep_data.image_hash
diff --git a/govtool/backend/sql/list-proposals-my.sql b/govtool/backend/sql/list-proposals-my.sql
diff --git a/govtool/backend/src/VVA/API.hs b/govtool/backend/src/VVA/API.hs
@@ -114,7 +114,14 @@ drepRegistrationToDrep Types.DRepRegistration {..} =
       dRepStatus = mapDRepStatus dRepRegistrationStatus,
       dRepType = mapDRepType dRepRegistrationType,
       dRepLatestTxHash = HexText <$> dRepRegistrationLatestTxHash,
-      dRepLatestRegistrationDate = dRepRegistrationLatestRegistrationDate
+      dRepLatestRegistrationDate = dRepRegistrationLatestRegistrationDate,
+      dRepPaymentAddress = dRepRegistrationPaymentAddress,
+      dRepGivenName = dRepRegistrationGivenName,
+      dRepObjectives = dRepRegistrationObjectives,
+      dRepMotivations = dRepRegistrationMotivations,
+      dRepQualifications = dRepRegistrationQualifications,
+      dRepImageUrl = dRepRegistrationImageUrl,
+      dRepImageHash = HexText <$> dRepRegistrationImageHash
     }
 
 delegationToResponse :: Types.Delegation -> DelegationResponse
@@ -286,6 +293,13 @@ drepInfo (unHexText -> dRepId) = do
     , dRepInfoResponseDRepRetireTxHash = HexText <$> dRepInfoDRepRetireTx
     , dRepInfoResponseSoleVoterRegisterTxHash = HexText <$> dRepInfoSoleVoterRegisterTx
     , dRepInfoResponseSoleVoterRetireTxHash = HexText <$> dRepInfoSoleVoterRetireTx
+    , dRepInfoResponsePaymentAddress = dRepInfoPaymentAddress
+    , dRepInfoResponseGivenName = dRepInfoGivenName
+    , dRepInfoResponseObjectives = dRepInfoObjectives
+    , dRepInfoResponseMotivations = dRepInfoMotivations
+    , dRepInfoResponseQualifications = dRepInfoQualifications
+    , dRepInfoResponseImageUrl = dRepInfoImageUrl
+    , dRepInfoResponseImageHash = HexText <$> dRepInfoImageHash
     }
 
 getCurrentDelegation :: App m => HexText -> m (Maybe DelegationResponse)