diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-13 11:17:12 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-04-13 11:17:12 -0600 |
| commit | 0dfe872da02d5d63eb2b334decd3a8292aff3ca3 (patch) | |
| tree | f3fbd9ddf5616429fe8555d7f7ca47dff246362f /src/Rahm/Desktop/KeysM.hs | |
| parent | 6cee136399b92f302a9b660c140167b69b251e51 (diff) | |
| download | rde-0dfe872da02d5d63eb2b334decd3a8292aff3ca3.tar.gz rde-0dfe872da02d5d63eb2b334decd3a8292aff3ca3.tar.bz2 rde-0dfe872da02d5d63eb2b334decd3a8292aff3ca3.zip | |
Consistent timeouts using the clock rather than counting threadDelay. Add timeout to nextButton
Diffstat (limited to 'src/Rahm/Desktop/KeysM.hs')
| -rw-r--r-- | src/Rahm/Desktop/KeysM.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |