diff --git a/bin/xmobar.hs b/bin/xmobar.hs index fe6f300..ac6292d 100644 --- a/bin/xmobar.hs +++ b/bin/xmobar.hs @@ -75,6 +75,11 @@ run :: XIO () run = do -- IDK why this is needed, I thought this was default liftIO $ hSetBuffering stdout LineBuffering + -- this isn't totally necessary except for the fact that killing xmobar + -- will make it print something about catching SIGTERM, and without + -- linebuffering it usually only prints the first few characters (even then + -- it only prints 10-20% of the time) + liftIO $ hSetBuffering stderr LineBuffering withDBus_ $ \db -> do c <- evalConfig db liftIO $ xmobar c diff --git a/lib/Data/Internal/Dependency.hs b/lib/Data/Internal/Dependency.hs index d90feea..68a60c4 100644 --- a/lib/Data/Internal/Dependency.hs +++ b/lib/Data/Internal/Dependency.hs @@ -130,7 +130,7 @@ import XMonad.Internal.Theme -- Currently there is no easy way to not use this (oh well) runXIO :: XIO a -> IO a runXIO x = do - logOpts <- logOptionsHandle stderr False + logOpts <- setLogVerboseFormat True . setLogUseTime True <$> logOptionsHandle stderr False pc <- mkDefaultProcessContext withLogFunc logOpts $ \f -> do p <- getParams