From b82cf109b131ec31317384d5d0aa7c1cd2208b85 Mon Sep 17 00:00:00 2001
From: Daniel Firth <daniel.firth@iohk.io>
Date: Sun, 8 Dec 2024 17:13:00 +0000
Subject: [PATCH] Remove unused helper functions in EndToEnd benchmark

---
 hydra-cluster/bench/Bench/EndToEnd.hs | 18 ------------------
 hydra-cluster/bench/Bench/Options.hs  |  3 ---
 2 files changed, 21 deletions(-)

diff --git a/hydra-cluster/bench/Bench/EndToEnd.hs b/hydra-cluster/bench/Bench/EndToEnd.hs
index ab98fbd1da8..a4e3318d997 100644
--- a/hydra-cluster/bench/Bench/EndToEnd.hs
+++ b/hydra-cluster/bench/Bench/EndToEnd.hs
@@ -368,24 +368,6 @@ progressReport nodeId clientId queueSize queue = do
       threadDelay 5
       progressReport nodeId clientId queueSize queue
 
---
--- Helpers
---
-
-assignUTxO :: (UTxO, Int) -> Map.Map Int (HydraClient, UTxO) -> Map.Map Int (HydraClient, UTxO)
-assignUTxO (utxo, clientId) = Map.adjust appendUTxO clientId
- where
-  appendUTxO (client, utxo') = (client, utxo <> utxo')
-
-noUTxOs :: UTxO
-noUTxOs = mempty
-
-double :: Real a => a -> Double
-double = realToFrac
-
-int :: Int -> Int
-int = id
-
 type TransactionId = Integer
 type TransactionInput = Int
 type TransactionOutput = Int
diff --git a/hydra-cluster/bench/Bench/Options.hs b/hydra-cluster/bench/Bench/Options.hs
index ad1b189dcb9..374b2f0f78d 100644
--- a/hydra-cluster/bench/Bench/Options.hs
+++ b/hydra-cluster/bench/Bench/Options.hs
@@ -90,9 +90,6 @@ standaloneOptionsParser =
     <*> timeoutParser
     <*> startingNodeIdParser
 
-item :: [Doc] -> Doc
-item items = line <> ("* " <+> align (fillSep items))
-
 outputDirectoryParser :: Parser FilePath
 outputDirectoryParser =
   strOption