diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index d84b8d6..7f3ab19 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -140,14 +140,22 @@ evalConf db@DBusState { dbSysClient = cl } = do
   let fs = features cl
   startDBusInterfaces fs
   (xmobarHandle, ts) <- startChildDaemons fs
+  io $ putStrLn "child daemons started"
   startRemovableMon fs
+  io $ putStrLn "removemon started"
   startPowerMon fs
+  io $ putStrLn "powermon started"
   dws <- startDynWorkspaces fs
+  io $ putStrLn "dyn workspace started"
   tt <- evalAlways $ fsTabbedTheme fs
+  io $ putStrLn "tabbed theme started"
   -- fb <- evalAlways $ fsFontBuilder features
   kbs <- filterExternal <$> evalExternal (fsKeys fs ts db)
+  io $ putStrLn "keys started"
   sk <- evalAlways $ fsShowKeys fs
+  io $ putStrLn "showkeys started"
   ha <- evalAlways $ fsACPIHandler fs
+  io $ putStrLn "acpi handler started"
   return $ ewmh
     $ addKeymap dws sk kbs
     $ docks