Remove unused hydra-tui functions (#1677)

cardano-scaling · Oct 3, 2024 · 4c979f0 · 4c979f0
2 parents c8721eb + e1355d1
commit 4c979f0
Show file tree

Hide file tree

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