diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-24 21:06:10 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | b80d487285cf7dd05075de4dc2fa669a703016b0 (patch) | |
| tree | 6392e713485289bae9b6c25bb6f5da0436a5da61 /src/Main.hs | |
| parent | 6eb4bd53a098bf5645f8eda13db1243ffc1df088 (diff) | |
| download | rde-b80d487285cf7dd05075de4dc2fa669a703016b0.tar.gz rde-b80d487285cf7dd05075de4dc2fa669a703016b0.tar.bz2 rde-b80d487285cf7dd05075de4dc2fa669a703016b0.zip | |
Roll Windows.hs into R.D.StackSet
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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) |