From d15ea771e45b60f32c83bfd90386c60d192299c0 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 28 Mar 2022 11:52:34 -0600
Subject: Add (some) ability to send keys to other windows

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index b17f62a..0514a99 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -12,12 +12,12 @@ import System.Environment (setEnv)
 import Data.Monoid
 
 import Internal.XMobarLog
+import Internal.Windows
 import Internal.Keys
 import Internal.Layout
 import Internal.Logger
 import Internal.DMenu (menuCommandString)
 import Internal.RebindKeys
-import XMonad.Actions.WithAll (withAll)
 
 import qualified XMonad as X
 import qualified XMonad.StackSet as W
@@ -89,7 +89,7 @@ windowHooks (Query readerT) config = do
 
   config {
     startupHook = do
-      withAll $ \w -> runReaderT readerT w
+      forAllWindows $ \w -> runReaderT readerT w
       startupHook config,
 
     manageHook = mappend (Query readerT >> return (Endo id)) (manageHook config)
-- 
cgit