File tree Expand file tree Collapse file tree 8 files changed +25
-27
lines changed
cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert Expand file tree Collapse file tree 8 files changed +25
-27
lines changed Original file line number Diff line number Diff line change @@ -11,7 +11,7 @@ repository cardano-haskell-packages
11
11
12
12
index-state :
13
13
, hackage.haskell.org 2025-08-03T21:32 :16Z
14
- , cardano-haskell-packages 2025-06-25T13:51 :34Z
14
+ , cardano-haskell-packages 2025-07-30T14:13 :57Z
15
15
16
16
packages :
17
17
cardano-db
Original file line number Diff line number Diff line change 1
1
{-# LANGUAGE ApplicativeDo #-}
2
2
{-# LANGUAGE FlexibleContexts #-}
3
+ {-# LANGUAGE GADTs #-}
3
4
{-# LANGUAGE OverloadedStrings #-}
4
5
{-# LANGUAGE RankNTypes #-}
5
6
{-# LANGUAGE RecordWildCards #-}
@@ -305,9 +306,8 @@ data PreparedMetadata = PreparedMetadata
305
306
}
306
307
307
308
-- | Prepared Mint data for async execution
308
- data PreparedMint = PreparedMint
309
- { pmtChunks :: ! [[DB. MaTxMint ]]
310
- }
309
+ data PreparedMint where
310
+ PreparedMint :: {pmtChunks :: ! [[DB. MaTxMint ]]} -> PreparedMint
311
311
312
312
-- | Prepare TxIn processing (can run in parallel with TxOut)
313
313
prepareTxInProcessing :: SyncEnv -> BlockGroupedData -> PreparedTxIn
Original file line number Diff line number Diff line change 1
1
{-# LANGUAGE OverloadedStrings #-}
2
- {-# LANGUAGE TypeApplications #-}
3
2
4
3
import Cardano.Db
5
4
import Cardano.DbSync.Config.Types hiding (CmdVersion , LogFileDir )
Original file line number Diff line number Diff line change @@ -261,7 +261,7 @@ insertBulkDrepDistrPiped :: HasCallStack => [[SGV.DrepDistr]] -> DbM ()
261
261
insertBulkDrepDistrPiped drepDistrChunks =
262
262
runSession mkDbCallStack $
263
263
HsqlSes. pipeline $
264
- traverse_ (\ chunk -> HsqlP. statement chunk insertBulkDrepDistrStmt) drepDistrChunks
264
+ traverse_ (` HsqlP.statement` insertBulkDrepDistrStmt) drepDistrChunks
265
265
266
266
-- | QUERY
267
267
queryDrepHashSpecialStmt ::
@@ -505,7 +505,7 @@ insertBulkTreasuryWithdrawal :: HasCallStack => [[SGV.TreasuryWithdrawal]] -> Db
505
505
insertBulkTreasuryWithdrawal treasuryWithdrawalChunks =
506
506
runSession mkDbCallStack $
507
507
HsqlSes. pipeline $
508
- traverse_ (\ chunk -> HsqlP. statement chunk insertBulkTreasuryWithdrawalStmt) treasuryWithdrawalChunks
508
+ traverse_ (` HsqlP.statement` insertBulkTreasuryWithdrawalStmt) treasuryWithdrawalChunks
509
509
510
510
--------------------------------------------------------------------------------
511
511
-- Voting
Original file line number Diff line number Diff line change @@ -341,7 +341,7 @@ insertBulkRewardRestsPiped :: [[SS.RewardRest]] -> DbM ()
341
341
insertBulkRewardRestsPiped rewardRestChunks =
342
342
runSession mkDbCallStack $
343
343
HsqlSes. pipeline $
344
- traverse_ (\ chunk -> HsqlP. statement chunk insertBulkRewardRestsStmt) rewardRestChunks
344
+ traverse_ (` HsqlP.statement` insertBulkRewardRestsStmt) rewardRestChunks
345
345
346
346
--------------------------------------------------------------------------------
347
347
queryRewardRestCount :: DbM Word64
Original file line number Diff line number Diff line change @@ -107,21 +107,20 @@ createAndInsertBlocks blockCount =
107
107
then pure mTxOutId
108
108
else do
109
109
txId <-
110
- ( insertTx $
111
- Tx
112
- (mkTxHash blkId 0 )
113
- blkId
114
- 0
115
- (DbLovelace 0 )
116
- (DbLovelace 0 )
117
- (Just 0 )
118
- 12
119
- Nothing
120
- Nothing
121
- True
122
- 0
123
- (DbLovelace 0 )
124
- )
110
+ insertTx $
111
+ Tx
112
+ (mkTxHash blkId 0 )
113
+ blkId
114
+ 0
115
+ (DbLovelace 0 )
116
+ (DbLovelace 0 )
117
+ (Just 0 )
118
+ 12
119
+ Nothing
120
+ Nothing
121
+ True
122
+ 0
123
+ (DbLovelace 0 )
125
124
126
125
void $ insertTxOut (mkTxOutCore blkId txId)
127
126
pure $ Just txId
Original file line number Diff line number Diff line change 262
262
"-optl-Wl,-lcrypto"
263
263
] ;
264
264
in {
265
- packages . cardano-chain-gen . ghcOptions = ghcOptions ;
265
+ packages . cardano-chain-gen . components . tests . cardano-chain-gen . ghcOptions = ghcOptions ;
266
266
packages . cardano-db-sync . ghcOptions = ghcOptions ;
267
267
packages . cardano-db . ghcOptions = ghcOptions ;
268
268
packages . cardano-db-tool . ghcOptions = ghcOptions ;
You can’t perform that action at this time.
0 commit comments