From 5adc88cd099799b56cf2b790a41f3fc85bf0d5ea Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 27 Dec 2022 10:45:12 -0500
Subject: [PATCH] ADD more logging

---
 bin/xmonad.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 7f3ab19..be475d1 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -138,7 +138,9 @@ 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"
   startDBusInterfaces fs
+  io $ putStrLn "dbus started"
   (xmobarHandle, ts) <- startChildDaemons fs
   io $ putStrLn "child daemons started"
   startRemovableMon fs