From 94a42859c1783bc36b37e139d89a6163e066bf46 Mon Sep 17 00:00:00 2001
From: Dmitry Kurochkin <dmitry.kurochkin@gmail.com>
Date: Wed, 3 Oct 2007 10:58:06 +0200
Subject: Use dynamic exceptions.

darcs-hash:20071003085806-903e8-cf3a24aa91bd95336a8aecdbc3b11b738caad6e7.gz
---
 Xmobar.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Xmobar.hs')

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
-- 
cgit v1.2.3