adjusting runDbTransSilent to not be maybe

Author: Cmdv

.gitignore

@@ -15,7 +15,7 @@ launch_*
 gen/
 cardano-chain-gen/test/testfiles/temp/
 /secp256k1/
-dev-tools/monitoring/data/
+monitoring/data/
 
 # Vim
 *.swp

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

@@ -130,18 +130,18 @@ runActions syncEnv actions = do
           -- Record start time and block count for performance metrics
           startTime <- liftIO getCurrentTime
           let blockCount = length ys
-          
+
           -- Process blocks
           ExceptT $ insertListBlocks syncEnv ys
-          
+
           -- Calculate and record blocks per second
           when (blockCount > 0) $ do
             endTime <- liftIO getCurrentTime
             let duration = realToFrac $ diffUTCTime endTime startTime
             when (duration > 0) $ do
               let blocksPerSecond = fromIntegral blockCount / duration
               liftIO $ setDbBlocksPerSecond (envMetricSetters syncEnv) blocksPerSecond
-          
+
           if null zs
             then pure Continue
             else dbEvent Continue zs

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

@@ -19,9 +19,9 @@ import Cardano.Prelude
 import Cardano.Slotting.Slot (EpochNo (..), SlotNo)
 import qualified Data.ByteString.Short as SBS
 import Data.List (span)
-import Data.Time.Clock (diffUTCTime, getCurrentTime)
 import qualified Data.Set as Set
 import qualified Data.Strict.Maybe as Strict
+import Data.Time.Clock (diffUTCTime, getCurrentTime)
 import Ouroboros.Consensus.Cardano.Block (HardForkBlock (..))
 import qualified Ouroboros.Consensus.HardFork.Combinator as Consensus
 import Ouroboros.Network.Block (blockHash, blockNo, getHeaderFields, headerFieldBlockNo, unBlockNo)
@@ -155,7 +155,7 @@ insertBlock ::
 insertBlock syncEnv cblk applyRes firstAfterRollback tookSnapshot = do
   -- Start timing for insert duration metric
   startTime <- liftIO getCurrentTime
-  
+
   !epochEvents <- liftIO $ atomically $ generateNewEpochEvents syncEnv (apSlotDetails applyRes)
   let !applyResult = applyRes {apEvents = sort $ epochEvents <> apEvents applyRes}
   let !details = apSlotDetails applyResult
@@ -211,7 +211,7 @@ insertBlock syncEnv cblk applyRes firstAfterRollback tookSnapshot = do
       do
         lift $ DB.deleteConsumedTxOut tracer txOutVariantType (getSafeBlockNoDiff syncEnv)
   commitOrIndexes withinTwoMin withinHalfHour
-  
+
   -- Record insert duration metric
   endTime <- liftIO getCurrentTime
   let duration = realToFrac $ diffUTCTime endTime startTime