summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar.hs
diff options
context:
space:
mode:
authormichael bishop <cleverca22@gmail.com>2016-09-14 09:18:44 -0300
committermichael bishop <cleverca22@gmail.com>2016-09-14 09:18:44 -0300
commitf2d33fa9a2a613fd19c41323f2f11941f8a08e27 (patch)
treefe64327d993fd5efd1b68851e36eb3a094cff4a3 /src/Xmobar.hs
parent581806974db7dc2a182f16e72e2233a90cda5b5f (diff)
downloadxmobar-f2d33fa9a2a613fd19c41323f2f11941f8a08e27.tar.gz
xmobar-f2d33fa9a2a613fd19c41323f2f11941f8a08e27.tar.bz2
tell the user what went wrong in the event of a failure
Diffstat (limited to 'src/Xmobar.hs')
-rw-r--r--src/Xmobar.hs4
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