Remove unused helper functions in EndToEnd benchmark

cardano-scaling · Dec 8, 2024 · 9b8c189 · 9b8c189
1 parent 250ac50
commit 9b8c189
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 22 deletions.
diff --git 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
@@ -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