diff options
Diffstat (limited to 'src/Rahm/Desktop/WorkspaceWheel.hs')
| -rw-r--r-- | src/Rahm/Desktop/WorkspaceWheel.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/WorkspaceWheel.hs b/src/Rahm/Desktop/WorkspaceWheel.hs index a89dc6a..b5cba52 100644 --- a/src/Rahm/Desktop/WorkspaceWheel.hs +++ b/src/Rahm/Desktop/WorkspaceWheel.hs @@ -31,6 +31,7 @@ import Text.Printf (printf) import XMonad import qualified XMonad.Operations as X import XMonad.Util.Run (spawnPipe) +import Rahm.Desktop.Logger (logs, LogLevel (Debug)) dzenSize :: (Integral a) => a dzenSize = 100 @@ -117,6 +118,8 @@ displayWorkspaceWheelAtPoint wheelType px py = do let stop = return () let retry = recur ring + logs Debug "Workspace Wheel Event: %s" (show evt) + case evt of Nothing -> return stop -- timeout Just (ButtonPress _ b) |