Enable drep image metadata

Author: kderme

cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/GovAction.hs

@@ -28,7 +28,7 @@ module Cardano.DbSync.Era.Universal.Insert.GovAction (
 )
 where
 
-import Cardano.BM.Trace (Trace, logInfo, logWarning)
+import Cardano.BM.Trace (Trace, logWarning)
 import qualified Cardano.Crypto as Crypto
 import Cardano.Db (DbWord64 (..))
 import qualified Cardano.Db as DB

cardano-db-sync/src/Cardano/DbSync/OffChain.hs

@@ -323,6 +323,8 @@ fetchOffChainVoteData _tracer manager time oVoteWorkQ =
             , DB.offChainVoteDrepDataObjectives = Vote.textValue <$> Vote.objectives (Vote.body dt)
             , DB.offChainVoteDrepDataMotivations = Vote.textValue <$> Vote.motivations (Vote.body dt)
             , DB.offChainVoteDrepDataQualifications = Vote.textValue <$> Vote.qualifications (Vote.body dt)
+            , DB.offChainVoteDrepDataImageUrl = Vote.textValue . Vote.contentUrl <$> Vote.image (Vote.body dt)
+            , DB.offChainVoteDrepDataImageHash = Vote.textValue . Vote.sha256 <$> Vote.image (Vote.body dt)
             }
       _ -> Nothing
 

cardano-db-sync/src/Cardano/DbSync/OffChain/Vote/Types.hs

@@ -59,7 +59,7 @@ getRationale = \case
 eitherDecodeOffChainVoteData :: LBS.ByteString -> DB.AnchorType -> Either String OffChainVoteData
 eitherDecodeOffChainVoteData lbs = \case
   DB.GovActionAnchor -> OffChainVoteDataGa <$> eitherDecode' lbs
-  DB.DrepAnchor -> Left "unimplemented"
+  DB.DrepAnchor -> OffChainVoteDataDr <$> eitherDecode' lbs
   DB.OtherAnchor -> OffChainVoteDataOther <$> eitherDecode' lbs
 
 getAuthors :: OffChainVoteData -> [Author]
@@ -158,8 +158,8 @@ data DrepBody = DrepBody
   deriving (Show, Generic)
 
 data Image = Image
-  { contentUrl :: Text
-  , sha256 :: Text
+  { contentUrl :: TextValue
+  , sha256 :: TextValue
   }
   deriving (Show, Generic, FromJSON)
 
@@ -276,11 +276,11 @@ instance FromJSON DrepBody where
       DrepBody mBody
         <$> o .:? "paymentAddress"
         <*> parseTextLimit 80 "givenName" o
-        <*> o .: "image"
+        <*> o .:? "image"
         <*> parseTextLimitMaybe 1000 "objectives" o
         <*> parseTextLimitMaybe 1000 "motivations" o
         <*> parseTextLimitMaybe 1000 "qualifications" o
-        <*> o .: "doNotList"
+        <*> o .:? "doNotList"
     where
       withObjectV v' s p = withObject s p v'
 

cardano-db/src/Cardano/Db/Schema.hs

@@ -711,6 +711,8 @@ share
     objectives          Text Maybe
     motivations         Text Maybe
     qualifications      Text Maybe
+    imageUrl            Text Maybe
+    imageHash           Text Maybe
 
   OffChainVoteAuthor
     offChainVoteDataId  OffChainVoteDataId  noreference