From 5e122067b6119061e19e981352f5e73b2fdc10b1 Mon Sep 17 00:00:00 2001 From: Maximilian Hubert <64627729+gap-editor@users.noreply.github.com> Date: Wed, 28 May 2025 23:03:31 +0200 Subject: [PATCH] fix typo in "retrieved" --- test/unit/Chainweb/Test/Mempool.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/unit/Chainweb/Test/Mempool.hs b/test/unit/Chainweb/Test/Mempool.hs index bc2b06929d..e431760877 100644 --- a/test/unit/Chainweb/Test/Mempool.hs +++ b/test/unit/Chainweb/Test/Mempool.hs @@ -352,10 +352,10 @@ propHighWater (txs0, txs1) _ mempool = runExceptT $ do when (txdata /= allPending && snd hw1 /= (fromIntegral $ length txs0 + length txdata)) $ let msg = concat [ "highwater failure" , ", initial batch was ", show (length txs0) - , ", retreived ", show (length p0s) + , ", retrieved ", show (length p0s) , ", with highwater ", show (snd hw) , ". Second batch was ", show (length txdata) - , " retreived ", show (length allPending) + , " retrieved ", show (length allPending) , ", with highwater ", show (snd hw1) ] in fail msg