Remove unused helper functions in EndToEnd benchmark

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

Hide file tree

Showing 2 changed files with 0 additions and 21 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
@@ -90,9 +90,6 @@ standaloneOptionsParser =
     <*> timeoutParser
     <*> startingNodeIdParser
 
-item :: [Doc] -> Doc
-item items = line <> ("* " <+> align (fillSep items))
-
 outputDirectoryParser :: Parser FilePath
 outputDirectoryParser =
   strOption