rename record field to suit new pattern

Author: Cmdv

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

@@ -26,7 +26,6 @@ import Cardano.Db.Types (DbInt65, dbInt65Decoder, dbInt65Encoder, HasDbInfo (..)
 import Data.Functor.Contravariant ((>$<))
 import Contravariant.Extras (contrazip3)
 import Cardano.Db.Statement.Helpers (manyEncoder)
-import qualified Data.List.NonEmpty as NE
 
 -----------------------------------------------------------------------------------------------------------------------------------
 -- MULTI ASSETS
@@ -38,36 +37,38 @@ Table Name: multi_asset
 Description: Contains information about multi-assets, including the policy and name of the asset.
 -}
 data MultiAsset = MultiAsset
-  { multiAssetId :: !MultiAssetId
-  , multiAssetPolicy :: !ByteString -- sqltype=hash28type
-  , multiAssetName :: !ByteString   -- sqltype=asset32type
-  , multiAssetFingerprint :: !Text
+  { multiAsset_Id :: !MultiAssetId
+  , multiAsset_Policy :: !ByteString -- sqltype=hash28type
+  , multiAsset_Name :: !ByteString   -- sqltype=asset32type
+  , multiAsset_Fingerprint :: !Text
   } deriving (Eq, Show, Generic)
 -- UniqueMultiAsset  policy name
 
+instance HasDbInfo MultiAsset
+
 multiAssetDecoder :: D.Row MultiAsset
 multiAssetDecoder =
   MultiAsset
-    <$> idDecoder MultiAssetId -- multiAssetId
-    <*> D.column (D.nonNullable D.bytea) -- multiAssetPolicy
-    <*> D.column (D.nonNullable D.bytea) -- multiAssetName
-    <*> D.column (D.nonNullable D.text) -- multiAssetFingerprint
+    <$> idDecoder MultiAssetId -- multiAsset_Id
+    <*> D.column (D.nonNullable D.bytea) -- multiAsset_Policy
+    <*> D.column (D.nonNullable D.bytea) -- multiAsset_Name
+    <*> D.column (D.nonNullable D.text) -- multiAsset_Fingerprint
 
 multiAssetEncoder :: E.Params MultiAsset
 multiAssetEncoder =
   mconcat
-    [ multiAssetId >$< idEncoder getMultiAssetId
-    , multiAssetPolicy >$< E.param (E.nonNullable E.bytea)
-    , multiAssetName >$< E.param (E.nonNullable E.bytea)
-    , multiAssetFingerprint >$< E.param (E.nonNullable E.text)
+    [ multiAsset_Id >$< idEncoder getMultiAssetId
+    , multiAsset_Policy >$< E.param (E.nonNullable E.bytea)
+    , multiAsset_Name >$< E.param (E.nonNullable E.bytea)
+    , multiAsset_Fingerprint >$< E.param (E.nonNullable E.text)
     ]
 
 multiAssetInsertEncoder :: E.Params MultiAsset
 multiAssetInsertEncoder =
   mconcat
-    [ multiAssetPolicy >$< E.param (E.nonNullable E.bytea)
-    , multiAssetName >$< E.param (E.nonNullable E.bytea)
-    , multiAssetFingerprint >$< E.param (E.nonNullable E.text)
+    [ multiAsset_Policy >$< E.param (E.nonNullable E.bytea)
+    , multiAsset_Name >$< E.param (E.nonNullable E.bytea)
+    , multiAsset_Fingerprint >$< E.param (E.nonNullable E.text)
     ]
 
 
@@ -77,16 +78,13 @@ Table Name: ma_tx_mint
 Description: Contains information about the minting of multi-assets, including the quantity of the asset and the transaction in which it was minted.
 -}
 data MaTxMint = MaTxMint
-  { maTxMintId :: !MaTxMintId
-  , maTxMintQuantity :: !DbInt65   -- sqltype=int65type
-  , maTxMintIdent :: !MultiAssetId -- noreference
-  , maTxMintTxId :: !TxId          -- noreference
+  { maTxMint_Id :: !MaTxMintId
+  , maTxMint_Quantity :: !DbInt65   -- sqltype=int65type
+  , maTxMint_Ident :: !MultiAssetId -- noreference
+  , maTxMint_TxId :: !TxId          -- noreference
   } deriving (Eq, Show, Generic)
 
-instance HasDbInfo MaTxMint where
-  tableName _ = "ma_tx_mint"
-  columnNames _ = NE.fromList [ "id" , "quantity" , "tx_id", "ident"]
-  typeCasts _ = NE.fromList ["text[]", "jsonb[]", "bytea[]", "bigint[]"]
+instance HasDbInfo MaTxMint
 
 maTxMintDecoder :: D.Row MaTxMint
 maTxMintDecoder =
@@ -99,9 +97,9 @@ maTxMintDecoder =
 maTxMintEncoder :: E.Params MaTxMint
 maTxMintEncoder =
   mconcat
-    [ maTxMintQuantity >$< E.param (E.nonNullable dbInt65Encoder)
-    , maTxMintIdent >$< idEncoder getMultiAssetId
-    , maTxMintTxId >$< idEncoder getTxId
+    [ maTxMint_Quantity >$< E.param (E.nonNullable dbInt65Encoder)
+    , maTxMint_Ident >$< idEncoder getMultiAssetId
+    , maTxMint_TxId >$< idEncoder getTxId
     ]
 
 maTxMintEncoderMany :: E.Params ([DbInt65], [MultiAssetId], [TxId])