Use dynamic exceptions.

darcs-hash:20071003085806-903e8-cf3a24aa91bd95336a8aecdbc3b11b738caad6e7.gz

1 files changed, 2 insertions, 2 deletions

diff --git a/Xmobar.hs b/Xmobar.hs
index db00b60..e8091a7 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -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