ProgressBarDemo: fix help string

jtdaugherty · Oct 26, 2024 · ade3f9d · ade3f9d
1 parent 32225d6
commit ade3f9d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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) =