From ade3f9d20e19b492b0373c25175ca4f7743348c1 Mon Sep 17 00:00:00 2001 From: Jonathan Daugherty Date: Fri, 25 Oct 2024 19:04:52 -0700 Subject: [PATCH] ProgressBarDemo: fix help string --- programs/ProgressBarDemo.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/programs/ProgressBarDemo.hs b/programs/ProgressBarDemo.hs index dbe18d6..d23e437 100644 --- a/programs/ProgressBarDemo.hs +++ b/programs/ProgressBarDemo.hs @@ -71,7 +71,10 @@ drawUI p = [ui] (str "Y: " <+> cBar2) <=> (str "Z: " <+> cBar3) <=> 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.VtyEvent e) =