diff options
| author | michael bishop <cleverca22@gmail.com> | 2016-09-14 09:18:44 -0300 |
|---|---|---|
| committer | michael bishop <cleverca22@gmail.com> | 2016-09-14 09:18:44 -0300 |
| commit | f2d33fa9a2a613fd19c41323f2f11941f8a08e27 (patch) | |
| tree | fe64327d993fd5efd1b68851e36eb3a094cff4a3 /src/Xmobar.hs | |
| parent | 581806974db7dc2a182f16e72e2233a90cda5b5f (diff) | |
| download | xmobar-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.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 |