Respect ExitExceptions, fixes a regression where exitWith had no effect

darcs-hash:20071012152801-a5988-80a14dda451e1e6e7cdc9e42fdc11568c21004b2

1 files changed, 1 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
index 06b0162..d4b602f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -103,6 +103,7 @@ main = do
             -- main loop, for all you HOF/recursion fans out there.
             forever_ $ handle =<< io (nextEvent dpy e >> getEvent e)
 
+    return ()
       where forever_ a = a >> forever_ a
 
 -- ---------------------------------------------------------------------