From b80d487285cf7dd05075de4dc2fa669a703016b0 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 24 Apr 2022 21:06:10 -0600
Subject: Roll Windows.hs into R.D.StackSet

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

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index bb39e14..25403d4 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -15,7 +15,6 @@ import Text.Printf
 
 import Rahm.Desktop.Swallow
 import Rahm.Desktop.Common
-import Rahm.Desktop.Windows
 import Rahm.Desktop.XMobarLog
 import Rahm.Desktop.Keys
 import Rahm.Desktop.Layout
@@ -98,7 +97,7 @@ windowHooks (Query readerT) config = do
 
   config {
     startupHook = do
-      forAllWindows $ \w -> runReaderT readerT w
+      withWindowSet $ mapM_ (runReaderT readerT) . W.allWindows
       startupHook config,
 
     manageHook = mappend (Query readerT >> return (Endo id)) (manageHook config)
-- 
cgit