fix TUI contestation deadline rendering

Author: locallycompact

hydra-tui/src/Hydra/TUI/Drawing.hs

@@ -133,7 +133,7 @@ drawRemainingContestationPeriod :: UTCTime -> UTCTime -> Widget Name
 drawRemainingContestationPeriod deadline now =
   let remaining = diffUTCTime deadline now
    in if remaining > 0
-        then padLeftRight 1 $ txt "Remaining time to contest: " <+> str (renderTime remaining)
+        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

hydra-tui/src/Hydra/TUI/Handlers.hs

@@ -45,12 +45,18 @@ handleEvent ::
   EventM Name RootState ()
 handleEvent cardanoClient client e = do
   handleGlobalEvents e
+  handleAppEventVia handleTick () e
   zoom connectedStateL $ do
     handleAppEventVia handleHydraEventsConnectedState () e
     zoom connectionL $ handleBrickEventsConnection cardanoClient client e
   zoom (logStateL . logMessagesL) $
     handleAppEventVia handleHydraEventsInfo () e
 
+handleTick :: HydraEvent Tx -> EventM Name RootState ()
+handleTick = \case
+  Tick now -> nowL .= now
+  _ -> pure ()
+
 handleAppEventVia :: (e -> EventM n s a) -> a -> BrickEvent w e -> EventM n s a
 handleAppEventVia f x = \case
   AppEvent e -> f e