Skip to content

Commit

Permalink
Merge pull request #1359 from input-output-hk/ffakenz/fix-tui-dialog-…
Browse files Browse the repository at this point in the history
…navigation

Fix TUI dialogs navigation broken
  • Loading branch information
ch1bo authored Mar 15, 2024
2 parents 89ec3f6 + 6e32886 commit da73c47
Showing 1 changed file with 0 additions and 7 deletions.
7 changes: 0 additions & 7 deletions hydra-tui/src/Hydra/TUI/Handlers.hs
Original file line number Diff line number Diff line change
Expand Up @@ -43,7 +43,6 @@ handleEvent ::
BrickEvent Name (HydraEvent Tx) ->
EventM Name RootState ()
handleEvent cardanoClient client e = do
handleVtyEventVia (handleExtraHotkeys (handleEvent cardanoClient client)) () e
zoom logStateL $ handleVtyEventVia handleVtyEventsLogState () e
handleAppEventVia handleTick () e
zoom connectedStateL $ do
Expand All @@ -55,12 +54,6 @@ handleEvent cardanoClient client e = do
-- Any `EventM` that decides to `Continue` would override the `Halt` decision.
handleGlobalEvents e

handleExtraHotkeys :: (BrickEvent w e -> EventM n s ()) -> Vty.Event -> EventM n s ()
handleExtraHotkeys f = \case
EvKey KDown [] -> f $ VtyEvent $ EvKey (KChar '\t') []
EvKey KUp [] -> f $ VtyEvent $ EvKey KBackTab []
_ -> pure ()

handleTick :: HydraEvent Tx -> EventM Name RootState ()
handleTick = \case
Tick now -> nowL .= now
Expand Down

0 comments on commit da73c47

Please sign in to comment.