From eb752b15d84730fe4ae2a58c3d1a9353a5814a0c Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Thu, 11 Feb 2021 18:48:36 +0000 Subject: [PATCH] Pass 0 to setClientMessageEvent where appropriate Stop pretending it has anything to do with time, it's zero, and it's not being read anywhere, we're passing the parameter only because setClientMessageEvent needs one. We should switch to setClientMessageEvent' and pass no data, but that would move the X11 dependency lower bound. --- XMonad/Util/Timer.hs | 2 +- scripts/xmonadctl.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Util/Timer.hs b/XMonad/Util/Timer.hs index 8a0e2216..7e4c50bd 100644 --- a/XMonad/Util/Timer.hs +++ b/XMonad/Util/Timer.hs @@ -41,7 +41,7 @@ startTimer s = io $ do a <- internAtom d "XMONAD_TIMER" False allocaXEvent $ \e -> do setEventType e clientMessage - setClientMessageEvent e rw a 32 (fromIntegral u) currentTime + setClientMessageEvent e rw a 32 (fromIntegral u) 0 sendEvent d rw False structureNotifyMask e sync d False return u diff --git a/scripts/xmonadctl.hs b/scripts/xmonadctl.hs index ca9bee64..5adad542 100644 --- a/scripts/xmonadctl.hs +++ b/scripts/xmonadctl.hs @@ -48,7 +48,7 @@ sendCommand addr s = do m <- internAtom d s False allocaXEvent $ \e -> do setEventType e clientMessage - setClientMessageEvent e rw a 32 m currentTime + setClientMessageEvent e rw a 32 m 0 sendEvent d rw False structureNotifyMask e sync d False