Remove unused hydra-tui functions (#1677)

Author: locallycompact

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)
 

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