diff options
Diffstat (limited to 'src/Rahm/Desktop/Submap.hs')
| -rw-r--r-- | src/Rahm/Desktop/Submap.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs index aabc35b..ca767e3 100644 --- a/src/Rahm/Desktop/Submap.hs +++ b/src/Rahm/Desktop/Submap.hs @@ -21,6 +21,8 @@ import qualified Data.Map as Map import Data.Time.Clock.POSIX import Data.Word (Word64) import Rahm.Desktop.Common +import Rahm.Desktop.XMobarLog.PendingBuffer +import Text.Printf (printf) import XMonad hiding (keys) currentTimeMillis :: IO Int @@ -154,7 +156,7 @@ submapButtonsWithKey :: submapButtonsWithKey defaultAction actions window = do maybe (return ()) - ( \arg -> + ( \arg@(_, button) -> case Map.lookup arg actions of Nothing -> defaultAction arg window Just fn -> fn window |