From 4640ebf48af5ca56e162016b43bbd20f689dd5da Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@josher.dev>
Date: Mon, 27 Apr 2026 14:35:18 -0600
Subject: [feat] better use of rdectl in xmobar.

---
 src/Rahm/Desktop/WorkspaceWheel.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Rahm/Desktop/WorkspaceWheel.hs')

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)
-- 
cgit