diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-13 11:17:12 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | 13925b8b18c26ddd6f4553e6c9e6fadecf15f003 (patch) | |
| tree | f3fbd9ddf5616429fe8555d7f7ca47dff246362f /src/Rahm/Desktop/KeysM.hs | |
| parent | cecacbf482f90d0ed56ce320fbb557b22cd3d7b0 (diff) | |
| download | rde-13925b8b18c26ddd6f4553e6c9e6fadecf15f003.tar.gz rde-13925b8b18c26ddd6f4553e6c9e6fadecf15f003.tar.bz2 rde-13925b8b18c26ddd6f4553e6c9e6fadecf15f003.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 |