From 504c719bdddb61c79b3607d950c64ed7ca753b50 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 27 Dec 2022 10:54:51 -0500
Subject: [PATCH] ENH change order

---
 bin/xmonad.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 28c7dcb..11bdfa7 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -137,9 +137,12 @@ features cl = FeatureSet
 evalConf db@DBusState { dbSysClient = cl } = do
   -- start DBus interfaces first since many features after this test these
   -- interfaces as dependencies
-  let fs = features cl
   io $ putStrLn "hi"
   io $ hFlush stdout
+  let fs = features cl
+  tt <- evalAlways $ fsTabbedTheme fs
+  io $ putStrLn "tabbed theme started"
+  io $ hFlush stdout
   startDBusInterfaces fs
   io $ putStrLn "dbus started"
   io $ hFlush stdout
@@ -155,9 +158,6 @@ evalConf db@DBusState { dbSysClient = cl } = do
   dws <- startDynWorkspaces fs
   io $ putStrLn "dyn workspace started"
   io $ hFlush stdout
-  tt <- evalAlways $ fsTabbedTheme fs
-  io $ putStrLn "tabbed theme started"
-  io $ hFlush stdout
   -- fb <- evalAlways $ fsFontBuilder features
   kbs <- filterExternal <$> evalExternal (fsKeys fs ts db)
   io $ putStrLn "keys started"