diff options
| author | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2007-10-03 10:58:06 +0200 |
|---|---|---|
| committer | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2007-10-03 10:58:06 +0200 |
| commit | 94a42859c1783bc36b37e139d89a6163e066bf46 (patch) | |
| tree | f6dd4a50bf3e64dec5afb416a118a047ef574da9 /Xmobar.hs | |
| parent | 54c4197e07a8e7852d7823c6f1f11c46d9e17661 (diff) | |
| download | xmobar-94a42859c1783bc36b37e139d89a6163e066bf46.tar.gz xmobar-94a42859c1783bc36b37e139d89a6163e066bf46.tar.bz2 | |
Use dynamic exceptions.
darcs-hash:20071003085806-903e8-cf3a24aa91bd95336a8aecdbc3b11b738caad6e7.gz
Diffstat (limited to 'Xmobar.hs')
| -rw-r--r-- | Xmobar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -84,13 +84,13 @@ eventLoop c v d w = do guard (nv /= ov) writeTVar tvar nv return nv - throwTo t (ErrorCall "Xmobar.eventLoop: yield") + throwDynTo t () checker t tvar nval -- Continuously wait for a timer interrupt or an expose event go tvar = do runX c d w (updateWin tvar) - catch (unblock $ allocaXEvent $ nextEvent' d) (const $ return ()) + catchDyn (unblock $ allocaXEvent $ nextEvent' d) (\() -> return ()) go tvar -- $command |