diff options
| -rw-r--r-- | src/Xmobar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs index 1e60297..5e44f62 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -106,8 +106,8 @@ startLoop xcfg@(XConf _ _ w _ _ _) sig vs = do #endif eventLoop tv xcfg [] sig where - handler thing (SomeException _) = - void $ putStrLn ("Thread " ++ thing ++ " failed") + handler thing (SomeException e) = + void $ putStrLn ("Thread " ++ thing ++ " failed: " ++ (show e)) -- Reacts on events from X eventer signal = allocaXEvent $ \e -> do |