ADD lots of flushes

bin/xmonad.hs

@@ -139,25 +139,35 @@ evalConf db@DBusState { dbSysClient = cl } = do
   -- interfaces as dependencies
   let fs = features cl
   io $ putStrLn "hi"
+  io $ hFlush stdout
   startDBusInterfaces fs
   io $ putStrLn "dbus started"
+  io $ hFlush stdout
   (xmobarHandle, ts) <- startChildDaemons fs
   io $ putStrLn "child daemons started"
+  io $ hFlush stdout
   startRemovableMon fs
   io $ putStrLn "removemon started"
+  io $ hFlush stdout
   startPowerMon fs
   io $ putStrLn "powermon started"
+  io $ hFlush stdout
   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"
+  io $ hFlush stdout
   sk <- evalAlways $ fsShowKeys fs
   io $ putStrLn "showkeys started"
+  io $ hFlush stdout
   ha <- evalAlways $ fsACPIHandler fs
   io $ putStrLn "acpi handler started"
+  io $ hFlush stdout
   return $ ewmh
     $ addKeymap dws sk kbs
     $ docks