From e1355d14e855adaf4e3e00130691e77b07be7a57 Mon Sep 17 00:00:00 2001 From: Daniel Firth Date: Thu, 3 Oct 2024 06:22:04 +0000 Subject: [PATCH] Remove unused hydra-tui functions --- hydra-tui/src/Hydra/TUI/Drawing.hs | 6 ------ hydra-tui/src/Hydra/TUI/Handlers.hs | 8 -------- 2 files changed, 14 deletions(-) diff --git a/hydra-tui/src/Hydra/TUI/Drawing.hs b/hydra-tui/src/Hydra/TUI/Drawing.hs index 84901d0dc97..d4b5e60ed97 100644 --- a/hydra-tui/src/Hydra/TUI/Drawing.hs +++ b/hydra-tui/src/Hydra/TUI/Drawing.hs @@ -187,9 +187,6 @@ drawRemainingContestationPeriod deadline now = then padLeftRight 1 $ vBox [txt "Remaining time to contest: ", str (renderTime remaining)] else txt "Contestation period passed, ready to fan out soon." -drawTotalCommitted :: UTxO -> Widget n -drawTotalCommitted utxo = str ("Total committed: " <> toString (renderValue (balance @Tx utxo))) - drawRemainingParties :: IdentifiedState -> [Party] -> Widget n drawRemainingParties k xs = str "Waiting for parties to commit:" @@ -236,9 +233,6 @@ drawIfActive f = \case Idle -> emptyWidget Active x -> f x -drawIfLive :: (ActiveLink -> Widget n) -> ConnectedState -> Widget n -drawIfLive f = drawIfConnected (drawIfActive f . headState) - drawPeersIfConnected :: ConnectedState -> Widget n drawPeersIfConnected = drawIfConnected (drawPeers . peers) diff --git a/hydra-tui/src/Hydra/TUI/Handlers.hs b/hydra-tui/src/Hydra/TUI/Handlers.hs index a4d286415a4..cd8781508fb 100644 --- a/hydra-tui/src/Hydra/TUI/Handlers.hs +++ b/hydra-tui/src/Hydra/TUI/Handlers.hs @@ -356,14 +356,6 @@ handleVtyEventsFinal hydraClient e = do liftIO (sendInput hydraClient Init) _ -> pure () -handleVtyEventsConnection :: - CardanoClient -> - Client Tx IO -> - Vty.Event -> - EventM Name Connection () -handleVtyEventsConnection cardanoClient hydraClient e = do - zoom headStateL $ handleVtyEventsHeadState cardanoClient hydraClient e - handleVtyEventsLogState :: Vty.Event -> EventM Name LogState () handleVtyEventsLogState = \case EvKey (KChar '<') [] -> scroll Up