From 33ca4ea6cfb2150f608e21aa8ba8c04e391c4c6a Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <jonathan.knowles@iohk.io>
Date: Fri, 21 Jul 2023 04:44:07 +0000
Subject: [PATCH] Fix warning in `memory-benchmark.hs`.

```
bench/memory-benchmark.hs:153:22: error: [-Wunused-matches, -Werror=unused-matches]
    Defined but not used: `tr'
    |
153 | getLatestBlockHeight tr wallet = do
```
---
 lib/wallet-benchmarks/bench/memory-benchmark.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/wallet-benchmarks/bench/memory-benchmark.hs b/lib/wallet-benchmarks/bench/memory-benchmark.hs
index 26a0539dab8..f0ab0c0aa4f 100644
--- a/lib/wallet-benchmarks/bench/memory-benchmark.hs
+++ b/lib/wallet-benchmarks/bench/memory-benchmark.hs
@@ -150,7 +150,7 @@ copyNodeSnapshot snapshot tmp = do
     Cardano commands
 ------------------------------------------------------------------------------}
 getLatestBlockHeight :: Tracer IO Text -> C.CardanoWalletConn -> IO Int
-getLatestBlockHeight tr wallet = do
+getLatestBlockHeight _tr wallet = do
     fmap (fromMaybe 0 . readMaybe)
         . flip S.readCreateProcess ""
         . S.shell