From 0dfe872da02d5d63eb2b334decd3a8292aff3ca3 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Wed, 13 Apr 2022 11:17:12 -0600 Subject: Consistent timeouts using the clock rather than counting threadDelay. Add timeout to nextButton --- src/Rahm/Desktop/KeysM.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Rahm/Desktop/KeysM.hs') diff --git a/src/Rahm/Desktop/KeysM.hs b/src/Rahm/Desktop/KeysM.hs index dcbce2a..403b3fc 100644 --- a/src/Rahm/Desktop/KeysM.hs +++ b/src/Rahm/Desktop/KeysM.hs @@ -470,7 +470,7 @@ documentation = execWriter . document' "" group (\(_, Documented doc _) -> doc) (sortOn (snd . fst) $ Map.toList b) prettyShow :: (KeyMask, KeySym) -> String - prettyShow (mask, key) = printf "<%s%s>" (showMask mask) (keysymToString key) + prettyShow (mask, key) = printf "%s%s" (showMask mask) (keysymToString key) hasSubmap b = case b of Action _ -> False -- cgit