jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-25 02:42:28 +03:00
Code Issues Projects Releases Wiki Activity

ProgressBarDemo: fix help string

Browse Source
This commit is contained in:
Jonathan Daugherty 2024-10-25 19:04:52 -07:00
parent 32225d6c13
commit ade3f9d20e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
programs/ProgressBarDemo.hs
View File

@ -71,7 +71,10 @@ drawUI p = [ui]
(str "Y: " <+> cBar2) <=> (str "Y: " <+> cBar2) <=>
(str "Z: " <+> cBar3) <=> (str "Z: " <+> cBar3) <=>
str "" <=> str "" <=>
strWrap "Hit 'x', 'y', or 'z' to advance progress, 't' to toggle labels, 'r' to revert values, 'cmd + r' to reset values or 'q' to quit" (strWrap $ concat [ "Hit 'x', 'y', or 'z' to advance progress,"
, "'t' to toggle labels, 'r' to revert values, "
, "'Ctrl + r' to reset values or 'q' to quit"
])
appEvent :: T.BrickEvent () e -> T.EventM () (MyAppState ()) () appEvent :: T.BrickEvent () e -> T.EventM () (MyAppState ()) ()
appEvent (T.VtyEvent e) = appEvent (T.VtyEvent e) =