From f2d33fa9a2a613fd19c41323f2f11941f8a08e27 Mon Sep 17 00:00:00 2001
From: michael bishop <cleverca22@gmail.com>
Date: Wed, 14 Sep 2016 09:18:44 -0300
Subject: tell the user what went wrong in the event of a failure

---
 src/Xmobar.hs | 4 ++--
 1 file 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
-- 
cgit v1.2.3