Make the PAB log ~1/10_000 messages.
The way it was configured rarely if ever prints anything.
The way it was configured rarely if ever prints anything.
(hsPkgs."ouroboros-network-framework" or (errorHandler.buildDepError "ouroboros-network-framework"))
(hsPkgs."prettyprinter" or (errorHandler.buildDepError "prettyprinter"))
(hsPkgs."quickcheck-instances" or (errorHandler.buildDepError "quickcheck-instances"))
(hsPkgs."random" or (errorHandler.buildDepError "random"))
(hsPkgs."row-types" or (errorHandler.buildDepError "row-types"))
(hsPkgs."servant" or (errorHandler.buildDepError "servant"))
(hsPkgs."servant-client" or (errorHandler.buildDepError "servant-client"))
(hsPkgs."ouroboros-network-framework" or (errorHandler.buildDepError "ouroboros-network-framework"))
(hsPkgs."prettyprinter" or (errorHandler.buildDepError "prettyprinter"))
(hsPkgs."quickcheck-instances" or (errorHandler.buildDepError "quickcheck-instances"))
(hsPkgs."random" or (errorHandler.buildDepError "random"))
(hsPkgs."row-types" or (errorHandler.buildDepError "row-types"))
(hsPkgs."servant" or (errorHandler.buildDepError "servant"))
(hsPkgs."servant-client" or (errorHandler.buildDepError "servant-client"))
(hsPkgs."ouroboros-network-framework" or (errorHandler.buildDepError "ouroboros-network-framework"))
(hsPkgs."prettyprinter" or (errorHandler.buildDepError "prettyprinter"))
(hsPkgs."quickcheck-instances" or (errorHandler.buildDepError "quickcheck-instances"))
(hsPkgs."random" or (errorHandler.buildDepError "random"))
(hsPkgs."row-types" or (errorHandler.buildDepError "row-types"))
(hsPkgs."servant" or (errorHandler.buildDepError "servant"))
(hsPkgs."servant-client" or (errorHandler.buildDepError "servant-client"))
ouroboros-network-framework -any,
prettyprinter >=1.1.0.1,
quickcheck-instances -any,
random -any,
row-types -any,
servant -any,
servant-client -any,
import Plutus.ChainIndex.TxIdState qualified as TxIdState
import Plutus.ChainIndex.TxOutBalance qualified as TxOutBalance
import Plutus.Contract.CardanoAPI (fromCardanoTx)
import System.Random
-- | Connect to the node and write node updates to the blockchain
-- env.
-- we start logging from here to avoid spamming the terminal
-- should be removed when we have better logging to report
-- on the PAB sync status
if (n `mod` 100_000 == 0 && n > 0) || (s >= recentSlot)
stdGen <- newStdGen
let logBlock = fst (randomR (0 :: Int, 10_000) stdGen) == 0
if logBlock || (s >= recentSlot)
then do
putStrLn $ "Current block: " <> show n <> ". Current slot: " <> show s
else pure ()
3885: Switch Babbage testnet to use example directory r=Jimbo4350 a=newhoggy Co-authored-by: John Ky <[email protected]>
Fix Babbage era evaluateMinLovelaceOutput function
Fix the default protocol version for Babbage