diff options
Diffstat (limited to 'src/Rahm/Desktop/Submap.hs')
| -rw-r--r-- | src/Rahm/Desktop/Submap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs index 5eb8ea0..2cb71c3 100644 --- a/src/Rahm/Desktop/Submap.hs +++ b/src/Rahm/Desktop/Submap.hs @@ -135,7 +135,7 @@ nextButton = do io $ grabPointer d root False buttonPressMask grabModeAsync grabModeAsync 0 0 currentTime ret <- io $ - getMaskEventWithTimeout 1000 d buttonPressMask $ \xEv -> do + getMaskEventWithTimeout 5000 d buttonPressMask $ \xEv -> do ButtonEvent {ev_button = button, ev_state = m} <- getEvent xEv return (m, button) |