add HasDbInfo class and instances

Author: Cmdv

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

@@ -115,6 +115,7 @@ runDbSync metricsSetters knownMigrations iomgr trce params syncNodeConfigFromFil
 
   let setting = Db.toConnectionSetting pgConfig
 
+
   -- For testing and debugging.
   whenJust (enpMaybeRollback params) $ \slotNo ->
     void $ unsafeRollback trce (txOutConfigToTableType txOutConfig) pgConfig slotNo

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

@@ -148,8 +148,8 @@ insertOffChainVoteResults trce resultQueue = do
             void $ DB.insertOffChainVoteGovActionData ocvga
           whenJust (offChainVoteDrep accessors ocvdId) $ \ocvdr ->
             void $ DB.insertOffChainVoteDrepData ocvdr
-          DB.insertOffChainVoteAuthors $ offChainVoteAuthors accessors ocvdId
-          DB.insertOffChainVoteReference $ offChainVoteReferences accessors ocvdId
+          DB.insertManyOffChainVoteAuthors $ offChainVoteAuthors accessors ocvdId
+          DB.insertManyOffChainVoteReference $ offChainVoteReferences accessors ocvdId
           DB.insertOffChainVoteExternalUpdate $ offChainVoteExternalUpdates accessors ocvdId
       OffChainVoteResultError fe -> void $ DB.insertOffChainVoteFetchError fe
 

cardano-db/cardano-db.cabal

@@ -65,14 +65,17 @@ library
                         Cardano.Db.Schema.Orphans
                         Cardano.Db.Schema.Types
                         Cardano.Db.Statement
+                        Cardano.Db.Statement.Function.Core
+                        Cardano.Db.Statement.Function.Query
+                        Cardano.Db.Statement.Function.Insert
                         Cardano.Db.Statement.Base
                         Cardano.Db.Statement.EpochAndProtocol
                         Cardano.Db.Statement.GovernanceAndVoting
-                        Cardano.Db.Statement.Helpers
                         Cardano.Db.Statement.MultiAsset
                         Cardano.Db.Statement.OffChain
                         Cardano.Db.Statement.Pool
                         Cardano.Db.Statement.StakeDeligation
+                        Cardano.Db.Statement.Types
                         Cardano.Db.Types
 
   build-depends:        aeson