Skip to content
Permalink
Browse files

be more verbose when creating checkpoints

  • Loading branch information...
cleverca22 committed Mar 15, 2019
1 parent 3ed4bfd commit b20e62f5946701937502aa073135aa9529647f11
Showing with 3 additions and 0 deletions.
  1. +3 −0 wallet-new/src/Cardano/Wallet/Server/Plugins/AcidState.hs
@@ -45,8 +45,11 @@ createAndArchiveCheckpoints dbRef delay dbMode =
logInfo "createAndArchiveCheckpoints is starting..."

res <- try $ do
logInfo "creating checkpoint"
liftIO (createCheckpoint dbRef >> createArchive dbRef)
logInfo "created checkpoint, pruning"
pruneAndCompress 3 dbPath
logInfo "pruned"
case res of
Left (err :: SomeException) -> logError (show err)
Right () -> return ()

0 comments on commit b20e62f

Please sign in to comment.
You can’t perform that action at this time.