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..b0995460a92 100644
--- a/hydra-cluster/bench/Bench/Options.hs
+++ b/hydra-cluster/bench/Bench/Options.hs
@@ -28,7 +28,6 @@ import Options.Applicative (
   value,
  )
 import Options.Applicative.Builder (argument)
-import Options.Applicative.Help (Doc, align, fillSep, line, (<+>))
 
 data Options
   = StandaloneOptions
@@ -90,9 +89,6 @@ standaloneOptionsParser =
     <*> timeoutParser
     <*> startingNodeIdParser
 
-item :: [Doc] -> Doc
-item items = line <> ("* " <+> align (fillSep items))
-
 outputDirectoryParser :: Parser FilePath
 outputDirectoryParser =
   strOption